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INTRODUZIONE 


I motivi che hanno decretato il successo del 
COMMODORE 64 sono molto numerosi ed in parte 
almeno anche abbastanza noti. 

Non possiamo qui elencarli tutti ma possiamo 
fissare la nostra attenzione almeno su tre 
motivazioni principali. 

II primo motivo e' che la Commodore era 
PRESENTE . sul mercato nel momento in cui 
esplodeva, piu' o meno disordinatamente una 
domanda informatica sotto tutti i punti di 
vista delle applicazioni e da tutti gli 
strati sociali. Il motivo specifico del 
successo del C 64, o almeno uno dei piu' 
importanti, e' stata la risposta che appunto 
questo computer dava con il suo rapporto 
prezzo prestazioni. 

Ma un motivo da non dimenticare e che d' 
altro canto ha segnato la morte piu ' o meno 
prematura di altri computer, ed in qualche 
caso magari migliori, e' stato la 
straordinaria disponibilità' di SOFTWARE sia 
come numero di pacchetti che come prezzi. 

Ciò' in particolare e' stato possibile grazie 
anche alla notevole trasparenza della 
macchina con la messe di informazioni piu ' o 
meno direttamente disponibile. In altre 
parole la copiosa documentazione predisposta 
da numerose case editrici. Queste 
informazioni sia a livello HARDWARE che 
SOFTWARE sono state anche il frutto della 
ricca collaborazione fra la EVM e la 
Commodore stessa. 

Piu' lento, in verità' anche per altri 
motivi, il successo del C128, che pur 




restando ad un ottimo livello come rapporto 
PREZZO/PRESTAZIONI, non ha mai avuto un gran 
che di programmi a disposizione oltre al 
relativo KNOW-HOW software ed hardware. 

Il C128, in particolare ai prezzi attuali e' 
invece un computer di tutto rispetto, 
addirittura superiore al C64 come rapporto 
prezzo/prestazioni. In questo nuovo computer 
sono infatti stati messi insieme il notissimo 
C64, ilnuovo C128 mentre 1' utilizzo dello 
Z80 come coprocessore permette di usare i 
programmi in CP/M. 

Malgrado la possibilità' di impiego del CPM, 
almeno sul nostro mercato, i modi piu' 
interessanti di lavoro sono il modo 64 ed il 
modo 128. Ora per operare, se non 
approfonditamente, ma almeno con una certa 
conoscenza di causa, su questi due computer 
e' necessario conoscerne il Sistema 
Operativo. 

Il Sistema Operativo del C64 e' già'stato 
pubblicato da noi ed ha riscosso un 
lusinghiero successo. Quello del C128 lo 
trovate nelle pagine seguenti e per di piu' 
e ' la prima volta che queste notizie vengono 
pubblicate in italiano. 

Questo libro esce con notevole ritardo 
rispetto ai tempi previsti sia per problemi 
tipografici che di messa a punto veri e 
propri, ce ne scusiamo con gli utenti come ci 
scusiamo subito degli errori e delle 
imperfezioni.Restiamo sempre a loro 
disposizione per ogni chiarimento. 
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LE ROM KERNAL 

L' intero Sistema Operativo del C128, almeno 
quando funziona in questo modo, e' residente 
su ROM come del resto e ' tipica consuetudine 
della COMMODORE ed e' composto da ben 48 K 
Bytes, se si includono anche i 4K bytes della 
ROM relativa alla gestione dello Z-80, e 
risulta quindi diviso come segue: 

4 K Bytes per lo Z-80 

28 K " per il Basic 

16 K " per le routines 

Solo quest' ultima parte di memoria fa parte 
del presente manuale oltre ad una parte della 
ROM relativa alla gestione dello Z-80. 
Abbiamo impiegato un programma particolare 
per disassemblare quanto troverete nelle 
pagine seguenti e tutte le informazioni 
possibili per commentarle. In particolare per 
collegare con la Pagina zero (vedi 
descrizioni successive), anche questa 
ampiamente documentata. Riportiamo infatti 
oltre al commento le LABELS di riferimento in 
modo tale che il collegamento sia il migliore 
possibile e sopràtutto facile e veloce. 

Ci auguriamo che le abbreviazioni riportate 
siano di facile ed immediata comprensione 
essendo tutte in italiano. RTS sta per Return 
From Subroutine non e ' commentata ed indica 
appunto la fine di una routine.Gli asterischi 
stanno a significare che continua 1 ' 
operazione presentata nelle linee precedenti. 
Per chi e ' alle prime armi in fatto di 
linguaggio macchina si consiglia il CORSO DI 
ASSEMBLER II PER . C 64 che potrà' essere 
utilmente impiegato anche in questo caso. 
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VETTORI INGRESSO MONITOR 


bOOO : 

4c 

21 

bO 

jmp 

★ 

$b021 


bOO3 : 

4c 

09 

bO 

jmp 

★ 

$b009 


b006 : 

4c 

b2 

bO 

jmp 

* 

$b0b2 


b009 : 

20 

7d 

f f 

jsr 

★ 

$ff7d | 

’ primm 


b00c : 

Od 

42 

52 

45 41 

4b 07 

00 



INIZIALIZZAZIONE MONITOR 




bO 14 : 

68 



pia 





bOl 5 : 

85 

02 


sta 

$02 

[ 

bank ] 


b017 : 

a2 

05 


ldx 

#$05 




bOl 9 : 

68 



pia 





bOla: 

95 

03 


sta 

$03,x 

[ 

pc-hi 


bOlc: 

ca 



dex 





bOld: 

10 

fa 


bpl 

* $b019 




bOlf : 

30 

25 


bmi 

* $b046 




INIZIALIZZAZIONE PER 

: INGRESSO 

NORMALE 

b021 : 

a9 

00 


Ida 

#$00 




b023 : 

8d 

00 

ff 

sta 

* $ff00 




bO26 : 

85 

06 


sta 

$06 

[ 

a-reg 

] 

b028 : 

85 

07 


sta 

$07 

i 

x-reg 

i 

bO 2a : 

85 

08 


sta 

$08 

l 

y-reg 

j 

bO 2c : 

85 

05 


sta 

$05 

[ 

s-reg 

] 

bO 2e : 

a9 

00 


Ida 

#$00 




b03 0 : 

a0 

bO 


ldy 

#$b0 




b032 : 

85 

04 


sta 

$04 

[ 

pc-lo 

] 

b034 : 

84 

03 


sty 

$03 

l 

pc-hi 

i 

bO 36 : 

a9 

Of 


Ida 

#$0f 




b038 : 

85 

02 


sta 

$02 

f 

bank ] 


bO 3a : 

20 

7d 

ff 

jsr 

* $ff7d 

[ 

primm 

] 

INIZIALIZZAZIONE MONITOR (GENERALE) 


b03d : 

Od 

4d 

4 f 

4e 49 54 4f 

52 



b04 5 

00 









b046 : 

d8 



cld 



b047 : 

ba 



tsx 



b04 8 : 

86 

09 


stx 

$09 | 

! charac 

b04a : 

a9 

cO 


Ida 

#$c0 


b04c : 

20 

90 

ff 

jsr 

* $ff90 | 

! setmsg 

b04f : 

58 



eli 



b050: 

20 

7d 

ff 

jsr 

* $ff7d | 

[ primm 


b053 : 

Od 

.20 

20 

20 

20 

50 

43 

20 

CR 

PC 

bO 5b : 

20 

53 

52 

20 

41 

43 

20 

58 

SR 

AC X 

b063 : 

52 

20 

59 

52 

20 

53 

50 

OD 

R 

YR SP 

bO 6b : 

3B 

20 

1B 

51 

00 




; 

<esc> 


Ingresso monitor 

Ingresso BREAK per monitor 

Ingresso per Exmon 

Output di stringa per PRINT 

Messaggio iniziale del monitor. Segue 

il BREAK 

<cr> break <bell> 


Immette il n. del Banco di memoria su 
lo Stack in Pagina Zero 
Questa parte della routine immette va 
lori dei registri X e Y, Accumulatore 
PS e PC nei corrispondenti Bytes di 
pagina ZERO prelevandoli dallo STACK. 
*** 

Inizializzazione 


Carica i registri con $00 ed abilita 
tutta la parte ROM. 

Esegue un CLEAR in P.O per Acc. 

Come sopra per X 
Come sopra per Y 
Come sopra per PS 

Carica A con LO/ADDR per il .Monitor 
Carica Y con HI/ADDR per il Monitor 
Contatore di A in Mem.: PC LO 

Contatore di Y in Mem.: PC HI 

Fissa in Pag. 0 il num. di Banco di 
a $0F, Kernal, Basic, RAM 0, I/O 
Vai a subr. PRINT 
Messaggio per il MONITOR 


<cr> monitor 


Reset del modo Decimale 

Immagazzina il puntatore dello STACK 
in X ed in memoria. 

Abilita i messaggi di controllo 
Salta all subr. SETMSG 

Abilitati tutti i sistemi di INTERRUPT 
Salta alla subr. PRINT 


Costanti per il monitor 
CR 

q 


VISUALIZZAZIONE CONTENUTO REGISTRI (MONITOR) 










[ bank ] 


b07 0 : 

a5 

02 


Ida 

$02 [ bank ] 

b072 : 

20 

d2 

b8 

jsr 

* $b8d2 

b075 : 

8a 



txa 


b076 : 

20 

d2 

ff 

jsr 

* $ffd2 [ bsout ] 

bO 7 9 : 

a5 

03 


Ida 

$03 [ pc-hi ] 

bO 7b : 

20 

c2 

b8 

jsr 

* $b8c2 

b07e : 

a0 

02 


Idy 

#$02 

b080 : 

b9 

02 

00 

Ida 

$0002,y 

b083 : 

20 

a5 

b8 

jsr 

* $b8a5 

bO 86 : 

c8 



iny 


b087 : 

cO 

08 


cpy 

#$08 

b089 : 

90 

f 5 


bcc 

* $b080 

b0 8b: 

20 

b4 

b8 

jsr 

* $b8b4 

b08e : 

a2 

00 


ldx 

#$00 

b090 : 

86 

7a 


stx 

$7a [ dsdec ] 

b092: 

20 

cf 

ff 

jsr 

* $ffcf [ basin ] 

b095 : 

9d 

00 

02 

sta 

$0200,x 

b09 8 : 

e8 



inx 


b099 : 

e0 

al 


cpx 

#$al 

b09b : 

b0 

if 


bes 

* $b0bc 

b09d : 

c9 

Od 


emp 

#$0d 

b09f : 

d0 

fi 


bne 

* $b092 

bOal : 

a9 

00 


Ida 

#$00 

b0a3 : 

9d 

ff 

01 

sta 

$01ff ,x 

b0a6 : 

20 

e9 

b8 

jsr 

■* $b8e9 

b0a9 : 

fO 

eO 


beq 

* $b08b 

bOab : 

c9 

20 


emp 

#$20 

bOad: 

f0 

f 7 


beq 

* $b0a6 

bOaf : 

6c 

2e 

03 

jmp 

($032e) 

b0b2: 

a2 

15 


ldx 

#$15 

b0b4 : 

dd 

e6 

bO 

emp 

*, $b0e6,x 

b0b7 : 

fO 

Oc 


beq 

* $b0c5 

b0b9 : 

ca 



dex 


bOba: 

10 

f 8 


bpl 

* $b0b4 

bObc : 

20 

7d 

f f 

jsr 

* $ff7d [ primm ] 

bObf : 

ld 

3f 

00 


? 

FISSA 

INDIRIZZI 

PER 

COMANDI MONITOR 

b0c2 : 

4c 

8b 

bO 

jmp 

* $b08b 

b0c5 : 

eO 

13 


cpx 

#$13 

b0c7 : 

b0 

12 


bes 

* $b0db 

b0c9 : 

e0 

Of 


cpx 

#$0f 

bOcb : 

b0 

13 


bes 

* $b0e0 

bOcd : 

8a 



txa 


bOce : 

Oa 



asl 

a 

bOcf : 

aa 



tax 


bOdO: 

bd 

fd 

bO 

Ida 

* $b0fd,x 

b0d3 : 

48 



pha 


b0d4 : 

bd 

f c 

bO 

Ida 

* $b0fc,x 

b0d7 : 

48 



pha 


b0d8 : 

4c 

a7 

b7 

jmp 

* $b7a7 

bOdb : 

85 

93 


sta 

$93 [ verck ] 

bOdd : 

4c 

37 

b3 

jmp 

* $b337 

bOeO : 

4c 

bl 

b9 

jmp 

* $b9bl 

b0e3 : 

6c 

00 

0a 

jmp 

($0a00 ) 


Immette il n. di BANCO in A 

A= 2 byte ASCII: HI=A, LO=X 

Immette in A vai. ASCII per Nib. LO 

Salta a BSOUT 

PC-HI in Accumulatore 

Converti A in 2 Bytes ASCII 

Metti PC LO 

Metti P,A,X,Y,S, in A 

Uscita in A 

Incrementa la visualizzazione 
Controlla 1' uscita da $04 a $09 
Legge il prossimo Byte. 

Lineefeedt CLEAR al resto della linea 
Piazza il puntatore. 

Il Buffer input = 0:**** 

Va a Subr BASIN: leggi un carattere 
e metti in Buffer di ingresso Monitor 
Visualizza 1 ' incremento sul Buffer 
Controllo per stampa di 160 Caratteri 
Controllo prec. positivo = mess. err. 
Controlla se prem. RETURN 
Controllo =no attendi prossimo caratt. 

Se il RETURN e' stato premuto, allora 
la stringa comando termina con $00 
Controllo di Buffer Input per $00 
Se contr. : o ? aspetta un Input. 
Control, se il caratt e' uno Spazio 
Legge il successivo carattere 
Vettore per routine MONITOR 
Il numero delle parole chiave in X e ' 
confrontato con la TAVOLA delle KEYW 
Se e' trovata vaia puntatore della tav 
la, lo decrementa di 1 fino al termine 
della ricerca 

Salto a subr. PRINT e uscita. 


Cursore a destra 


Salta al ciclo di attesa di input 
Controlla se e' L S o V 
Se si esegui 

Controllo se e' un car.di conv. $+&% 

Se si esegui 
N. parola chiave in A 
Moltiplica A x2 
Sposta il valore in X 

Le due routines spostano gli indirizzi 
HI e LO nello STACK. 


Salta ai parametri di impiego 
Immag. il carattere del comando 
Esegue un comando L, S o V 
Esegue la conversione dei caratteri 
Vettore di WARM START del BASIC 
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b0e6 : 

41 

43 

44 

46 

47 

48 

4a 

4d 

acdfghjm 

bOee : 

52 

54 

58 

40 

2e 

3e 

3b 

24 

r tx@.>; $ 

bOf 6 : 

2b 

26 

25 

4c 

53 

56 



+&%lsv 


bOfc: 

05 

b4 

($b405) 

bOfe: 

30 

b2 

($b230) 

blOO: 

98 

b5 

($b598) 

bl02 : 

da 

b3 

($b3da) 

bl04 : 

d5 

bl 

($bld5) 

bl06 : 

cd 

b2 

($b2cd) 

bl08 : 

de 

bl 

($blde) 

blOa : 

51 

bl 

($bl51 ) 

blOc: 

4 f 

bO 

($b04f ) 

blOe : 

33 

b2 

($b233) 

bll 0 : 

e2 

bO 

($b0e2) 

bll2 : 

8f 

ba 

($ba8f) 

bl 14 : 

05 

b4 

($b405) 

bll6 : 

aa 

bl 

($blaa) 

bl 18 : 

93 

bl 

($bl93) 


bl la : 

8e 

b2 

Oa 

stx 

$0ab2 



blld: 

a6 

68 


ldx 

$68 

[ facsgn 

] 

bllf : 

a9 

66 


Ida 

#$66 



bl21 : 

78 



sei 




bl22: 

20 

74 

ff 

jsr 

* $ff74 

[ indfet 

] 

bl25 : 

58 



eli 




bl 2 6 : 

ae 

b2 

Oa 

ldx 

$0ab2 



bl 29 : 

60 



rts 




bl2a: 

8e 

b2 

Oa 

stx 

$0ab2 



bl2d: 

a2 

66 


ldx 

#$66 



bl2f : 

8e 

b9 

02 

stx 

$02b9 



bl 32 : 

a6 

68 


ldx 

$68 

[ facsgn 

1 

bl34 : 

78 



sei 




bl 3 5 : 

20 

77 

ff 

jsr 

* $ff77 

[ indsta 

) 

bl38 : 

58 



eli 




bl 39 : 

ae 

b2 

Oa 

ldx 

$0ab2 



bl 3c : 

60 



rts 





bl 3d : 

8e 

b2 

0a 

stx 

$0ab2 


bl40 : 

a2 

66 


ldx 

#$66 


bl42 : 

8e 

c8 

02 

stx 

$02c8 


bl45 : 

a6 

68 


ldx 

$68 [ 

facsgn ] 

bl47 : 

78 



sei 



bl 48 : 

20 

7a 

ff 

jsr 

* $ff7a [ 

indemp ] 

bl4b: 

58 



eli 



bl4c : 

08 



php 



bl 4d : 

ae 

b2 

0a 

ldx 

$0ab2 


bl 50 : 

28 



plp 



bl 51 : 

60 



rts 



COMANDO MONITOR 

M 



bl52: 

bO 

08 


bes 

* $bl5c 


bl 54 : 

20 

01 

b9 

jsr 

* $b901 


bl57 : 

20 

a7 

b7 

jsr 

* $b7a7 


bl5a: 

90 

06 


bcc 

* $bl62 


bl 5c : 

a9 

Ob 


Ida 

#$0b 



Parole chiavi accettate dal MONITOR 


INDIRIZZI DEI COMANDI DEL MONITOR 

A = ASSEMBLE 
C = COMPARE 
D = DISASSEMBLE 
F = FILL 
G = GO TO 
H = HONT 
J = JUMP 
M = MONITOR 
R = REGISTER 
T = TRANSFER 
X = EXIT 
@ = DISC COMMAND 
. = ASSEMBLE 
> = MODIFY MEMORY 
; = MODIFY REGISTER 


Imm. temp. in X 

N. banco rilevato da OP3 

Indirizzo FETVEC in A 

Disabilitaz. di TUTTI gli INTERRUPT 

Salta a sub. INDFET 

Abilitati tutti gli INTERRUPT 

X caricato con il valore salv. prec. 

Imm. temp. X. 

Carica STAVEC (ind LO) in X e inseris. 
la rout. Indsta in STAVEC 
Rileva il n. banco da OP3 
Disabilitaz. di TUTTI gli INTERRUPT 
Salta a sub. INDSTA 
Abilitati tutti gli INTERRUPT 
X caricato con il valore salvato prec. 


Imm. tempo. X 

Carica indirizzo CMPVEC in Y e valore 

CMPVEC per INDCMP 

Rileva il n. banco da OP3 

Disabilit. di tutti gli INTERRUPT 

Salta a INDCMP 

Abilita tutti gli INTERRUPT 

Risultato del confronto (CMP) 

Carica X con vai.precedente 
Riporta il risultato del confronto 


Nessun parametro. Valori di default 
Copia contenuto OP! in OP# 

Immetti in OP1 

Esegui conversione per passo 

Carica OP1 (ind. LO) con vai. DEFAULT 







bl 5e : 

86 

60 


sta 

$60 

[ 

tenexp ] 

bl60 : 

dO 

15 


bne 

* $bl77 



bl62 : 

20 

0e 

b9 

jsr 

* $b9Qe 



bl65 : 

90 

2a 


bcc 

* $bl91 



bl67 : 

a2 

03 


ldx 

#$03 



bl69 : 

24 

d7 


bit 

$d7 

( 

mode ] 

bl 6b : 

10 

01 


bpl 

* $bl6e 



bl6d : 

e8 



inx 




bl 6e : 

46 

62 


lsr 

$62 

[ 

expsgn ] 

bl70 : 

66 

61 


ror 

$61 

1 

lowtr ] 

bl72 : 

66 

60 


ror 

$60 

[ 

tenexp ] 

bl74 : 

ca 



dex 




bl 7 5 : 

d0 

f 7 


bne 

* $bl6e 



bl77 : 

20 

el 

ff 

jsr 

* $ffel 

[ 

stop ) 

bl 7a : 

fO 

12 


beq 

* $bl8e 



bl7c: 

20 

e8 

bl 

jsr 

* $ble8 



bl7f : 

a9 

08 


Ida 

#$08 



bl81 : 

24 

d7 


bit 

$d7 

[ 

mode ] 

bl 8 3 : 

10 

01 


bpl 

* $bl86 



bl85 : 

Oa 



asl 

a 



bl86 : 

20 

52 

b9 

jsr 

* $b952 



bl89 : 

20 

22 

b9 

jsr 

* $b922 



bl8c: 

bO 

e9 


bes 

* $bl77 



bl8e : 

4c 

8b 

bO 

jmp 

* $b08b 



bl 91 : 

4c 

bc 

bO 

jmp 

* $b0bc 



COMANDO MONITOR 

; 




bl 94 : 

20 

74 

b9 

jsr 

* $b974 



bl 9 7 : 

a0 

00 


ldy 

#$00 



bl 99 : 

20 

al 

b7 

jsr 

* $b7a7 



bl 9c : 

bO 

0a 


bes 

* $bla8 



bl9e : 

a5 

60 


Ida 

$60 

[ 

tenexp ] 

blaO : 

99 

05 

00 

sta 

$0005 ,y 



bla3 : 

c8 



iny 




bla4 : 

cO 

05 


cpy 

#$05 - 



bla6 : 

90 

fi 


bcc 

* $bl99 



bla8 : 

4c 

8b 

bO 

jmp 

* $b08b 



COMANDO MONITOR 

DI MODIFICA 

MEMORIA 

blab 

b0 

le 


bes 

* $blc9 



blad 

20 

01 

b9 

jsr 

* $b901 



blbO 

a0 

00 


ldy 

#$00 



blb2 

• 20 

al 

bl 

jsr 

* $b7a7 



blb5 

bO 

12 


bes 

* $blc9 



blb7 

a5 

60 


Ida 

$60 

[ 

tenexp ] 

blb9 

20 

2a 

bl 

jsr 

* $bl2a 



blbc 

c8 



iny 




blbd 

24 

d7 


bit 

$d7 

[ 

mode ] 

blbf 

10 

04 


bpl 

* $blc5 



bici 

cO 

10 


cpy 

#$10 



blc3 

90 

ed 


bcc 

* $blb2 



blc5 

cO 

08 


cpy 

#$08 



blc7 

90 

e9 


bcc 

* $blb2 



Blc9 

20 

7d 

ff 

jsr 

* $ff7d 

[ 

primm ] 


Carica S.C. 12 

Vai ad eseg. visualizz. memoria 
Poni 0P1-0P3 in OP1 
Se 0P1-0P3> OP1 ERRORE 
Dividi 3 volte per 2 n. passi 
Controllo per modo 40/80 colonne 
40 colonne (passo di divisione) 

80 colonne (numero di passi) 

Divisione di OP1 per 2 per la visualiz 
zazione dei valori in memoria di 8 o 
16 

N. di divisioni per passo -1 
OP1 diviso per 8 o 16 

Vai a subr STOP: Contr. tasto di STOP 
Se STOP premuto vai a subr EXIT. 
Visualizza 1 linea di memoria 
Carica A con operando 
Controllo per modo 40/80 colonne 
40 col. aggiungi costante di 8. 

80 col. aggiungi costante di 16 
Somma: contenuto di A con OP3 
Sottrazione: QPl - costante <1> 

Ciclo fino a OP1<0 

Salta a ciclo di attesa Input 

Stampa ? e vai come sopra 


C=0 OPl in pag. 0 

Fissa lo spost. per la Pag. 0 

Modifica OPl 

Carry set= ident. per sub. EXIT 
Carica indirizzo di OPl 
Puntatore di Status per B,A,X,Y 
Visualizza memoria CPU +1 in Pag.O 
Controllo per var. mera. CPU 
Se contr. negat. vai prossima rout. 
Vai al ciclo di attesa input. 


Nessun param. quindi nessun cambiam. 

Copia il cont di OPl in OP3 

Metti a 0 il puntat. della vis. modif 

Metti il valor modif in OPl 

Se nessun altro vai stampa la linea 

Prendi il valore da OPl 

Immag A in ogni banco 

Visual, punt per modif. Byte + 1 

Controllo per modo 40/80 colonne 

Massimo param. di lett.40 caratteri 

Controllo variaz su' 16 caratteri 

Se nessun cambiam. prossimo parametro 

Controllo variaz.su 8 caratteri 

Se nessun cambiamento prossimo param. 

Vai alla subr. di PRINT 


blcc: lb 4f 91 00 <esc> o <crsr up> 


Esegui un Clear sui modi riportati 
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COMANDI MONITOR G & J 


bldO : 

20 

e8 

bl 

jsr 

* $ble8 


bld3 : 

4c 

8b 

bO 

jmp 

* $b08b 


bld6 : 

20 

74 

b9 

jsr 

* $b974 


bld9 : 

a6 

09 


ldx 

$09 [ 

charac 

bldb : 

9a 



txs 



bldc : 

4c 

71 

f f 

jmp 

* $ff71 [ 

impfar 

bldf : 

20 

74 

b9 

jsr 

* $b974 


ble2 : 

20 

6e 

f f 

jsr 

* $ff6e ( 

jsrfar 

ble5 : 

4c 

8b 

bO 

jmp 

* $b08b 


ble8 : 

20 

b4 

b8 

jsr 

* $b8b4 


bleb : 

a9 

3e 


Ida 

#$3e 


bled : 

20 

d2 

f f 

jsr 

* $ffd2 [ 

bsout ] 

blf 0 : 

20 

92 

b8 

jsr 

* $b892 


blf 3 : 

aO 

00 


ldy 

#$00 


blf 5 : 

f0 

03 


beq 

* $blfa 


blf 7: 

20 

a8 

b8 

jsr 

* $b8a8 


blf a : 

20 

la 

bl 

jsr 

* $blla 


blfd: 

20 

c2 

b8 

jsr 

* $b8c2 


b200 : 

c8 



iny 



b201 : 

cO 

08 


cpy 

#$08 


b203 : 

24 

d7 


bit 

$d7 

[ mode ] 

b205 : 

10 

02 


bpl 

* $b209 


b207 : 

cO 

10 


cpy 

#$10 


b209 : 

90 

ec 


bcc 

* $blf7 


b20b : 

20 

7d 

ff 

jsr 

* $ff7d 

[ primm ] 

b20e : 

3a 

12 

00 

: <rvs on> 



b211 : 

a0 

00 


ldy 

#$00 


b213 : 

20 

la 

bl 

jsr 

* $blla 


b216 : 

48 



pha 



b217 : 

29 

7 f 


and 

#$7f 


b219 : 

c9 

20 


cmp 

#$20 


b2 lb : 

68 



pia 



b21c : 

bO 

02 


bcs 

* $b220 


b21e : 

a9 

2e 


lda 

#$2e 


b220 : 

20 

d2 

ff 

jsr 

* $ffd2 | 

bsout ] 

b223 : 

c8 



iny 



b224 : 

24 

d7 


bit 

$d7 | 

mode ] 

b226 : 

10 

04 


bpl 

* $b22c 


b228 : 

cO 

10 


cpy 

#$10 


b22a : 

90 

e7 


bcc 

* $b213 


b22c : 

cO 

08 


cpy 

#$08 


b22e : 

90 

e3 


bcc 

* $b213 


b230 : 

60 



rts 



COMANDI MONITOR 

C & 

T 


b231 : 

a9 

00 


lda 

#$00 


b2 3 3 : 

2c 

a9 

80 

bit 

$80a9 


b236 : 

85 

93 


sta 

$93 | 

[ verck ] 

b2 3 8 : 

a9 

00 


lda 

#$00 


b23a: 

8d 

b3 

0a 

sta 

$0ab3 


b2 3d: 

20 

83 

b9 

jsr 

* $b983 


b240 : 

bO 

05 


bcs 

* $b247 


b2 4 2 : 

20 

al 

bl 

jsr 

* $b7a7 



Vis. delle variazioni 

Vai al ciclo di attesa input 

C=0 0P1 in pagina zero 

Carica X con byte di Pag.O per SP 

Modifica SP con X 

Vai alla subr JMPFAR 

C=0 OP1 in Pag. 0 

Vai a JSRFAR 

Vai al ciclo di attesa per input 
Ritorno carrello + clear su resto lin 
Carica A con '<' 

Vai a BS'OUT 

0P3 in 5 Byte 

Cont di cicli messo a 0 

Valore di 1 (esa) 

SPAZIO e CR 

Crsr up. A da un banco di meni. 

A visualizza in 2 Byte ASCII 
Ciclo + n. spost + 1 
Visual, di 8 in esa 
Controllo per modo 40/80 colonne 
Uscita a 40 colonne 
Visualizz. di 16 in esa 
Prendi prossimo valore esa 
Vai a subr. PRINT 


Costante 


Ciclo e visualizz. cont. a 0 
Carica A da banco di memoria 
Immetti un carattere nello Stack 
Mask per bit 7 
Prova per caratt. controllo 
Riprendi caratt. da STACK 
Se nessun car.contr. esegui Output 
Carica A con . (punto) 

Vai a subr. BSOUT 
Ciclo ed incr. cont +1 
Controllo per video 40/80 col. 

Se 40 col.continua visualizz. 

Contr. se sono stampati 16 caratteri 
Altrimenti stampa il pross. caratt. 
Contr. se sono stampati 8 caratt. 
Altrimenti stampa il pross. caratt. 


Fissa carattere per COMPARE 
Salta a $B236 

Fissa puntatore per Trasferimento 
Puntatore di direzione per comando 
C/T a $00 

Immettere e cont. passo in OPH,OP2 
Se Carry set rilevato errore 
Controllo separatori fra comandi 
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b24 5 : 

90 

03 


bcc 

* $b24a 



Operandi OK 

b247 : 

4c 

bc 

bO 

jtnp 

* $bObc 



Visual. ? e vai ciclo di attesa INPUT 

b24a: 

24 

93 


bit 

$93 [ 

verck ] 


Controllo di trasferimento (-) o con 

b24c : 

10 

2c 


bpl 

* $b27a 



fronto nella subr CMP 

b24e: 

38 



sec 




Fissa il Carry per sottrazione 

b24f : 

a5 

66 


Ida 

$66 

indice 

) 

Viene eseguito un controllo per vedere 

b2 51 : 

e5 

60 


sbc 

$60 

tenexp 

] 

se il contenuto di entrambi i Bytes 

b253 : 

a5 

67 


Ida 

$67 

facmo ] 


LO e HI ADDR sono > di OP3 o dei Bytes 

b255 : 

e5 

61 


sbc 

$61 

lowtr ] 


di indirizzo OP1 

b257 : 

bO 

21 


bcs 

* $b27a 



Se TO< FROJ4 allora direzione OK 

b25 9 : 

a5 

63 


Ida 

$63 

f ac ] 


Aggiungi il contenuto di OP2 a $65,$64 

b25b : 

65 

60 


adc 

$60 

’ tenexp 

] 

,$63 al contenuto dell' operando OP1 

b2 5d: 

85 

60 


sta 

$60 

tenexp 

] 

nelle locazioni $62, $61,$60 

b25f : 

a5 

64 


Ida 

$64 

| rightflag] 

* * * 

b261 : 

65 

61 


adc 

$61 

' lowtr ] 


*** 

b263 : 

85 

61 


sta 

$61 

lowtr ] 


Metti i risultati di qualsiasi somma. 

b265 : 

a5 

65 


Ida 

$65 

facmoh 

] 

che abbia dato OVERFLOW in OP1 

b267 : 

65 

62 


adc 

$62 

expsgn 

] 

Immagazzina il risultato della somma 

b26 9 : 

85 

62 


sta 

$62 

' expsgn 

] 

in OP1 

b26b : 

a2 

02 


ldx 

#$02 



Copia il contenuto degli operandi di 

b2 6d: 

bd 

b7 

Oa 

Ida 

$0ab7,x 



indirizzo $0Ab9 $0AB8 $0AB7 nell' oper 

b270 : 

95 

66 


sta 

$66,x | 

; indice 

] 

andò OP3 ($68, $67,$66) 

b272 : 

ca 



dex 




* * * 

b273 : 

10 

f 8 


bpl 

* $b26d 



* * * 

b27 5 : 

a9 

80 


Ida 

#$80 



Controlla che i dati di provenienza 

b277 : 

8d 

b3 

Oa 

sta 

$0ab3 



siano diversi da quelli di destino 

b2 7a: 

20 

b4 

b8 

jsr 

* $b8b4 



Vai ad indirizzo specificato 

b27d : 

aO 

00 


ldy 

#$00 



.Metti il punt. di Spost a 0 

b27f : 

20 

el 

ff 

jsr 

* $ffel | 

' stop ] 


Vai alla subr. STOP 

b282 : 

fO 

47 


beq 

* $b2cb 



Se il tasto STOP e' premuto esci 

l?284 : 

20 

la 

bl 

jsr 

* Si ila 



Carica A da un banco di memoria 

b287 : 

a2 

60 


ldx 

#$60 



$60 e = ind LO 

b2 89 : 

8e 

b9 

02 

stx 

$02b9 



Fissa STAVEC a questo indir. 

b28c : 

8e 

c8 

02 

stx 

S02c8 



Fissa CMPVEC a questo indir. 

b28f : 

a6 

62 


ldx 

$62 | 

[ expsgn 

] 

Carica X con byte banco 

b291 : 

78 



sei 




Disabilitati tutti gli INTERRUPT 

b292 : 

24 

93 


bit 

$93 [ verck ] 


Contr. per trasferim o confronto 

b294 : 

10 

03 


bpl 

* $b299 



Confronto 

b296 : 

20 

77 

f f 

jsr 

* $ff77 | 

[ indsta 

] 

Vai a subr. INDSTA 

b299 : 

a6 

62 


ldx 

$62 

[ expsgn 

] 

Carica X con byte di banco 

b2 9b : 

20 

la 

ff 

jsr 

* $ff7a | 

[ indemp 

] 

Vai a subr. INDCMP 

b29e : 

58 



eli 



Abilita tutti gli INTERRUPT 

b29f : 

fO 

09 


beq 

* $b2aa 



Controlla che non sia dato un segnale 

b2al : 

20 

92 

b8 

jsr 

* $b892 



di uguale. Uscita di OP3 come ASCII 

b2a4 : 

20 

a8 

b8 

jsr 

* $b8a8 



con i contenuti di 5 Bytes per SPACE 

b2a7 : 

20 

a8 

b8 

jsr 

* $b8a8 



C/R, Cursor UP. 

b2aa : 

2c 

b3 

Oa 

bit 

$0ab3 



Controllo per direz. di trasf. 

b2ad: 

30 

Ob 


bmi 

* $b2ba 



Invia nuovo ind. di ritorno 

b2af : 

e6 

60 


ine 

$60 

[ tenexp 

] 

Incrementa ind. di trasferimento 

b2bl : 

dO 

10 


bne 

* $b2c3 



Se diverso vai ad errore 

b2b3 : 

e6 

61 


ine 

$61 

[ lowtr ] 


Incrementa di 1 

b2b5 : 

dO 

Oc 


bne 

* $b2c3 



Se ind. HI in OVERFLOW = errore 

b2b7 : 

4c 

bc 

bO 

jmp 

* SbObc 



Vis ? e vai a ciclo attesa INPUT 

b2ba : 

20 

22 

b9 

jsr 

* $b922 



Sottrazione: OP1 - costante 1 

b2bd : 

20 

60 

b9 

jsr 

* $b960 



Sottrazione: OP3 - costante 1 

b2c0 : 

4c 

c6 

b2 

jmp 

* $b2c6 



Vai a sottrazione OP2 - 1 

b2c3 : 

20 

50 

b9 

jsr 

* $b950 



Somma: costante lin OP3 

b2c6 : 

20 

3c 

b9 

jsr 

* $b93c 



Sottrazione: OP2 - costante 1 

b2c9 : 

bO 

b4 


bcs 

* $b27f 



Ciclo fino a tutti i passi eseguiti 

b2cb: 

4c 

8b 

bO 

j®P 

* $b08b 



Salto a ciclo di attesa input 




COMANDO MONITOR H 


b2ce: 

20 

83 

b9 

jsr 

* $b983 



b2dl : 

bO 

61 


bcs 

* $b334 



b2d3 : 

aO 

00 


ldy 

#$00 



b2d5 : 

20 

e9 

b8 

jsr 

* $b8e9 



b2d8 : 

c9 

27 


cmp 

#$27 



b2da : 

dO 

16 


bne 

* $b2f2 



b2dc : 

20 

e9 

b8 

jsr 

* $b8e9 



b2df : 

c9 

00 


cmp 

#$00 



b2el : 

fO 

51 


beq 

* $b334 



b2e3 : 

99 

80 

Oa 

sta 

$0a80,y 



b2e6 : 

c8 



iny 




b2e7 : 

20 

e9 

b8 

jsr 

* $b8e9 



b2ea: 

fO 

lb 


beq 

* $b307 



b2ec : 

cO 

20 


cpy 

#$20 



b2ee : 

dO 

f 3 


bne 

* $b2e3 



b2f 0 : 

f 0 

15 


beq 

* $b307 



b2f 2 : 

8c 

00 

01 

sty 

$0100 



b2f 5 : 

20 

a5 

b7 

jsr 

* $b7a5 



b2f 8 : 

a5 

60 


•Ida 

$60 ( 

tenexp 

] 

b2fa : 

99 

80 

Oa 

sta 

$0a80,y 



b2fd : 

c8 



iny 




b2f e : 

20 

al 

b7 

jsr 

* $b7a7 



b301 : 

bO 

04 


bcs 

* $b307 



b303 : 

cO 

20 


cpy 

#$20 



b305 : 

dO 

fi 


bne 

* $b2f8 



b307 : 

84 

93 


sty 

$93 [ 

verck ] 


b309 : 

20 

b4 

b8 

jsr 

* $b8b4 



b30c : 

aO 

00 


ldy 

#$00 



b30e : 

20 

la 

bl 

jsr 

* $blla 



b311 : 

d9 

80 

Oa 

cmp 

$0a80,y 



b314 : 

dO 

Oe 


bne 

* $b324 



b316 : 

c8 



iny 




b317 : 

c4 

93 


cpy 

$93 | 

i verck ] 


b319 : 

dO 

f 3 


bne 

* $b30e 



b31b: 

20 

92 

b8 

jsr 

* $b892 



b31e : 

20 

a8 

b8 

jsr 

* $b8a8 



b321 : 

20 

a8 

b8 

jsr 

* $b8a8 



b3 2 4 : 

20 

el 

ff 

jsr 

* $ffel | 

! stop ] 


b327 : 

fO 

08 


beq 

* $b331 



b329 : 

20 

50 

b9 

jsr 

* $b950 



b32c: 

20 

3c 

b9 

jsr 

* $b93c 



b32f : 

bO 

db 


bcs 

* $b30c 



b3 31 : 

4c 

8b 

bO 

jmp 

* $b08b 



b3 34 : 

4c 

bc 

bO 

jmp 

* $b0bc 



b337 : 

aO 

01 


ldy 

#$01 



b3 3 9 : 

84 

ba 


sty 

$ba | 

! fa ] 


b33b: 

84 

b9 


sty 

$b9 

[ sa ] 


b33d : 

88 



dey 




b3 3e : 

84 

c6 


sty 

$c6 

[ ba ] 


b340 : 

84 

b7 


sty 

$b7 | 

[ fnlen ] 

1 

b342 : 

84 

c7 


sty 

$c7 

[ fnbank 

] 

b344 : 

84 

9 0 


sty 

$90 | 

[ status 

I 

b346: 

a9 

Oa 


Ida 

#$0a 



b348 : 

85 

bc 


sta 

$bc | 

[ fnadr+ 

1 

b34a : 

a9 

80 


Ida 

#$80 



b34c: 

85 

bb 


sta 

$bb 

[ fnadr ! 

1 

b34e : 

20 

e9 

b8 

jsr 

* $b8e9 




Metti il valore di passo in OPl 
Carry fissato = ident. Rilevato errore 
Visual, caratt. ricerca in Buffer CPM 
Leggi carattere da Buffer di input 
Controlla se e' car. = . 

Se negativo non prendere come stringa 
Leggi un caratt. dal Buffer di Input 
E' un fine comando? 

Se contr. prec pos. Visual, errore ? 
Metti un car. nel buffer CPM 
Sposta buffer CMP +1 

Contr. buffer input per fine comando 
Contr se : o ? Se cosi ' esegui ricerca 
Contr se 32 in Buffer CMP 
Altrim. prendi il car successivo per 
rout. di ricerca 
Immag lo spost. nel Buffer CMP 
Metti operando CMP in OPl 
Trasmetti byte OPl nel Buffer CMP 
* * * 

Incrementa di 1 il buffer CMP 
Imetti nuovo valore CMP in OPl 
Esegui HUNT 

Contr per 32 nel buffer CMP 
Altrimenti prendi il sticc. valore CMP 
Immag. contat. dei valori buffer CMP 
ed esegui un CLEAR su resto linea 
Visual, primo car. nel CMP Buffer 
Carica A da un banco di mem. 

Confronta con car. nel Buffer CMP 
Se diverso vai al prossimo passo 
Visualizza prossimo valore Buffer CMP 
*** 

Se no prossimo passo di confronto 
Contenuto di 0P3 
SPAZIO, CR,crsr-up 
SPAZIO, CR,crsr-up 

Vai a sub. STOP: Controlla tasto STOP 
Se STOP premuto esci 
Somma: costante 1 in 0P3 
Sottrazione: 0P2-costante 1 
Ciclo attesa x esec tutti i passi 
Salto al ciclo di attesa input 
Visual. ? 

Carica Y con $01 

Fissa n. periferi u- nastro) 

Fissa ind. seconiMrio 
Decrementa Y fino a $00 
Fissa n. banco per comandi L,V,S 
Fissa a 0 la lunghezza nome file 
Fissa banco per ind. nome file 
Metti a 0 il Byte di status 
Carica A in Pag. 0 con Hi Addr 
] Nome del file caricato con $0A 
Carica in Pag. 0 nome file per ind. 

LO 

Controllo sul Buffer di inputi 
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b351 : 

fO 

58 


beq 

* $b3ab 



b353 : 

c9 

20 


emp 

#$20 



b355 : 

fO 

f 7 


beq 

* $b34e 



b357 : 

c9 

22 


emp 

#$22 



b359 : 

d0 

15 


bne 

* $b370 



b35b : 

a6 

la 


Idx 

$7a 

[ 

dsdec ] 

b3 5d: 

bd 

00 

02 

Ida 

$0200,x 



b360 : 

fO 

49 


beq 

* $b3ab 



b362 : 

e8 



inx 




b363 : 

c9 

22 


emp 

#$22 



b 36 5 : 

fO 

Oc. 


bea 

* $b373 



b367 : 

91 

bb 


sta 

($bb),y 

[ 

fnadr ] 

b369 : 

e6 

b7 


ine 

$b7 

[ 

fnlen ] 

b36b: 

c8 



iny 




b36c : 

cO 

11 


cpy 

#$11 



b36e : 

90 

ed 


bcc 

* $b35d 



b370 : 

4c 

bc 

bO 

jmp 

* $b0bc 



PARAMETRI DI VALUTAZIONE LVS 


b373 : 

86 

la 


stx 

$7a 

[ 

dsdec ] 

b‘375: 

20 

e9 

b8 

jsr 

* $b8e9 



b378: 

fO 

31 


beq 

* $b3ab 



b37a: 

20 

al 

b7 

jsr 

* $b7a7 



b37d : 

bO 

2c 


bes 

* $b3ab 



b37f : 

a5 

60 


Ida 

$6 0 ' 

[ 

tenexp ] 

b381 : 

85 

ba 


sta 

$ba 

l 

fa ] 

b383 : 

20 

al 

b7 

jsr 

* $b7a7 



b386 : 

bO 

23 


bes 

* $b3ab 



b388 : 

20 

01 

b9 

jsr 

* $b901 



b38b : 

85 

c6 


sta 

$c6 

[ 

ba, ] 

b38d: 

20 

al 

hi 

jsr 

* $b7a7 



b390 : 

bO 

3f 


bes 

* $b3dl 



b3 9 2 : 

20 

b4 

b8 

jsr 

* $b8b4 



b395 : 

a6 

60 


ldx 

$60 

[ 

tenexp ] 

b397 : 

a4 

61 


ldy 

$61 

1 

lowtr ] 

b399 : 

a5 

93 


Ida 

$93 

[ 

verck ] 

b39b: 

c9 

53 


emp 

#$53 



b39d : 

d0 

di 


bne 

* $b370 



b39f : 

a9 

00 


Ida 

-#$00 



b3al : 

85 

b9 


sta 

$b9 

[ 

sa ] 

b3a3 : 

a9 

66 


Ida 

#$66 



b3a5 : 

20 

d8 

ff 

jsr 

* $ffd8 

[ 

savesp ] 

b3a8 : 

4c 

8b 

bO 

jmp 

* $b08b 



b3ab: 

a5 

93 


Ida 

$93 

[ 

verck ] 

b3ad : 

c9 

56 


emp 

#$56 



b3af : 

f0 

06 


beq 

* $b3b7 



b3bl : 

c9 

4c 


emp 

#$4c 



b3b3 : 

d0 

bb 


bne 

* $b370 



b3b5 : 

a9 

00 


Ida 

#$00 



b3b7 : 

20 

d5 

f f 

jsr 

* $ffd5 

t 

loadsp ] 

b3ba : 

a5 

90 


Ida 

$90 

l 

status ] 

b3bc : 

29 

10 


and 

#$10 



b3be: 

fO 

e8 


beq 

* $b3a8 



b3c0 : 

a 5 

93 


Ida 

$93 

t 

verck ] 

b3c2 : 

fO 

ac 


beq 

* $b370 



b3c4 : 

20 

7d 

ff 

jsr 

* $ff7d 

[ 

primm ] 


Se e ' un fine comando vai ciclo INPUT 
Contr. se il carattere letto e' SPAZIO 
Se si continua e leggei il Pross. car. 
Controllo se caratt e' " 

Altrimenti errore in stringa com. 

X carie, con visualiz da Buff. input 
Legge il primo " in Buffer(=nomefile) 
$00=Fine stringa di comando 
Punt. di buffer INPUT al pross. car. 
Controllo rilevam secondo " (apici) 

Apici trovato, prosegue valut. 

Nome file immesso a $0A80 

Increm +1 contat. lungh. nome file 

Increm. puntatore nome file 

Contr. lungh.nome file >16 caratteri 

Se minore leggi pross. carattere 

Visual. ? e va ciclo attesa INPUT 


Punt.BUFFER input dopo il secondo " 
Contr. Buffer x fine comando : ? 

LOAD e VERIFY possono girare 
Prendi i param da OP1 
Nessun prametro, vai espress. L o V 
Prendi vai. 0P1 (Ind. LO) 

Mettilo in Pagina zero 
Prendi i param 0P1 (ind. di inizio) 
Nessun parametro, vai a Espr per L V 
Copia il cont. di 0P1 in 0P3 
Prendi il n. di banco da Pag. 0 
Parametri LVS (fine Ind) 

Nessun para, trovato, vai a Espre. LV 
Esegui LFeed e clear sul resto riga 
Carica X con vai. LO per SAVE 
Carica Y con vai. HI per SAVE 
Prendi il comando 
E' un S ( per SAVE)? 

No = errore 

Carica A con 0, in pag. 0 
per indirizzo secondario 
N. banco da operando OP3 
Vai a subr. SAVESP. 

Vai a ciclo di attesa INPUT 

Valuta il tipo di comando 

E' V per Verify 

Verifica a LOADSP se A <>0 

E' L per Load 

No, vedi se e ' S per Save 

Carica A con 0 per sub. LOADSP 

Vai a subr. LOADSP 

Carica STATUS in A 

Bit mask per errore lettura 

Nessun errore LV, vai ciclo attesa INP 

Preleva car.come comando 

Non e' un comando. ERRORE 

Vai a subr PRINT 


COSTANTE MONITOR 
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b3c7: 20 45 52 52 4f 52 00 error 


COMANDO MONITOR F 


b3ce : 

4c 

8b 

bO 

jmp 

* $b08b 


b3dl : 

a6 

66 


ldx 

$66 [ 

indice 

b3d3 : 

a4 

67 


ldy 

$67 [ 

facmo 

b3d5 : 

a9 

00 


Ida 

#$00 


b3d7 : 

85 

b9 


sta 

$b9 [ 

sa ] 

b3d9 : 

f 0 

dO 


beq 

* $b3ab 


b3db: 

20 

83 

b9 

jsr 

* $b983 


b3de : 

bO 

23 


bes 

* $b403 


b3e0 : 

a5 

68 


Ida 

$68 [ 

facsgn 

b3e2 : 

cd 

b9 

0a 

emp 

$0ab9 


b3e5 : 

d0 

le 


bne 

* $b403 


b 3e7 : 

20 

a7 

b7 

jsr 

* $b7a7 


b3ea : 

bO 

17 


bes 

* $b403 


b3ec : 

a0 

00 


ldy 

#$00 


b3ee : 

a5 

60 


Ida 

$60 [ 

tenexp 

b3f 0 : 

20 

2a 

bl 

jsr 

* $bl2a 


b3f 3 : 

20 

el 

ff 

jsr 

* $ffel [ 

’ stop ] 

b3f 6 : 

fO 

08 


beq 

* $b400 


b3f 8 : 

20 

50 

b9 

jsr 

* $b9 50 


b3fb : 

20 

3c 

b9 

jsr 

* $b93c 


b3fe : 

bO 

ee 


bes 

* $b3ee 


b400 : 

4c 

8b 

bO 

jmp 

* $b08b 


b403 : 

4c 

bc 

bO 

jmp 

* $b0bc 


COMANDO MONITOR 

A 



b4 06 

b0 

3a 


bes 

* $b442 


b408 

20 

01 

b9 

jsr 

* $b901 


b40b 

a2 

00 


ldx 

#$00 


b4 Od 

8e 

al 

0a 

stx 

$0aal 


b410 

8e 

b4 

0a 

stx 

$0ab4 . 


b4 1 3 

20 

e9 

b8 

jsr 

* $b8e9 


b416 

dO 

07 


bne 

* $b41f 


b41 8 

e0 

00 


cpx 

#$00 


b41a 

d0 

03 


bne 

* $b41f 


b4 le 

4c. 

8b 

bO 

jmp 

* $b08b 


b41f 

c9 

20 


emp 

#$20 


b421 

f 0 

e8 


beq 

* $b40b 


b4 2 3 

9d 

ac 

0a 

sta 

$0aac,x 


b42 6 

e8 



inx 



b427 

e0 

03 


cpx 

#$03 


b42 9 

d0 

e8 


bne 

* $b413 


b42b 

ca 



dex 



b42c 

30 

17 


bmi 

* $b445 


b42e 

bd 

ac 

Oa 

Ida 

$0aac,x 


b4 31 

38 



sec 



b432 

e9 

3 f 


sbe 

#$3f 


b4 3 4 

aO 

05 


ldy 

#$05 


b436 

4a 



1 sr 

a 


b4 3 7 

6e 

al 

Oa 

ror 

$0aal 


b43a 

6e 

aO 

Oa 

ror 

$0aa0 


b43d 

88 



dey 



b43e 

dO 

f 6 


bne 

* $b436 


b440 

fO 

e9 


beq 

* $b42b 


b442 

4c 

bc 

b0 

jmp 

* $b0bc 


b4 4 5 

a2 

02 


ldx 

#$02 



Costante del MONITOR per ERRORE 


Vai ciclo di attesa INPUT 
Carica in X ind. di inizio LO 
Carica in Y ind. di inizio HI 
Scrivi ind. sec. ($00=read) 

Metti in A in Pag. 0 per ind.sec. vai. 
COMUNQUE prec. per comandi LV 
Metti prov. e dim. passo in OPH,OP2 
Controllo per Carry set 
Metti n. banco da OP3 
Confronta n. banco con operando 
Se diverso e' errore di identific. 
Prendi il parametro di comando 
Se CARRY a 0 errore di ident. 

Fissa visual, per comando, 0 in OP1 
Indirizzo LO 
Rout di STA 

Vai a subr. di STOP. Contr per Tasto 
Se prèmuto, vai ciclo att. INPUT 
Somma: costante 1 in OP3 
Sottrazione: OP2- costante 1 
Controllo per STOP premuto 
Vai a ciclo di attesa input 
Visualizza ? e poi come sopra 


Se CARRY a 0 = errore identific. 

Copia OP1 in OP3 

Esegui Clear su visual. BUFFER. 

Metti a 0 il Bit ident. coman. abbrev 
Metti a 0 il contatore di ciclo 
Contr. Buffer per fine coman. : o ? 

Se non e ' fine com. vai oltre 
Visualizza ancora 0, nessun coman. 

Se come sopra continua 
Vai al ciclo di attesa input 
Il car. letto e' SPAZIO? 

Se si leggi e inizalizza 
Immetti caratt. nelBuffer mnem. 

Il Buffer visual, punt. +1 
Sono 3 caratteri? 

Se no, vai al prossimo car. 

Vis. punt. a ultimo carattere 
Operazione sui 3 caratteri 
Leggi ALL'INDIETRO i 3 car. 

Fissa il carry per sottrazione 
Valori car. alfa; A=l,b=2,ecc. 

Cont. esegue spost di 5x 1 bit. 

Spost. di 1 bit del valore della lett. 
fuori di A nei Byte pari di $AA1-$AA0 
I 3 car. mnemonici saranno spostati 
nel byte pari appena detto e occupare 
3 gruppi di 5 bits in questi bytes 
★ ★ ★ 

Visual. ? ; vai ciclo att. input 
Fissa spost. buffer di uscita. 
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b447 : 

ad 

b4 

0a 

Ida 

$0ab4 


b44a: 

dO 

30 


bne 

* $b47c 


b44c : 

20 

ce 

b7 

jsr 

* $b7ce 


b44f : 

fO 

29 


beq 

* $b47a 


b451 : 

bO 

ef 


bes 

* $b442 


b453 : 

a9 

24 


Ida 

#$24 


b455 : 

9d 

aO 

Oa 

sta 

$0aa0,x 


b4 58 : 

e8 



inx 



b459 : 

a5 

62 


Ida 

$62 

[ expsgn ] 

b45b: 

dO 

e5 


bne 

* $b442 


b45d : 

aO 

04 


ldy 

#$04 


b45f : 

ad 

b6 

Oa 

Ida 

$0ab6 


b462 : 

c9 

08 


emp 

#.$08 


b464 : 

90 

05 


bcc 

* $b46b 


b466 : 

cc 

b4‘ 

Oa 

cpy 

$0ab4 


b469 : 

fO 

06 


beq 

* $b471 


b46b : 

a5 

61 


Ida 

$61 

[ lowtr ] 

b46d : 

dO 

02 


bne 

* $b4-71 


b46f r 

aO 

02 


ldy 

#$0 2 


b471 : 

a9 

30 


Ida 

#$30 


b47 3 : 

9d 

aO 

Oa 

sta 

$0aa0,x 


b476 : 

e8 



inx 



b477 : 

88 



dey 



b478 : 

dO 

f 9 


bne 

* $b473 


b4 7a: 

c6 

la 


dee 

$7a 

[ dsdec ] 

b47c : 

20 

e9 

b8 

jsr 

* $b8e9 


b 4 7 f : 

f 0 

Oe 


beq 

* $b48f 


b481 : 

c9- 

20 


emp 

#$20 


b48 3 : 

fO 

c2 


beq 

* $b447 


b485 : 

9d 

aO 

Oa 

sta 

$0aa0,x 


b488 : 

e8 



inx 



b489 : 

eO 

Oa 


cpx 

#$0a 


b48b: 

90 

ba 


bcc 

* $b447 


b48d : 

bO 

b3 


bes 

* $b442 


b48f : 

86 

63 


stx 

$63 

[ fac ] 

b491 : 

a2 

00 


ldx 

#$00 


b4 9 3 : 

8e 

bl 

Oa 

stx 

$0abl 


b496 : 

a2 

00 


ldx 

#$00 


b4 98 : 

86 

9 f 


stx 

$9f 

( ptr2 ] 

b49a : 

ad 

bl 

Oa 

Ida 

$0abl 


b49d : 

20 

59 

b6 

jsr 

* $b659 


b4a0 : 

ae 

aa 

Oa 

ldx 

$0aaa 


b4a3 : 

86 

64 


stx 

$64 

[ rightflag 

b4a5 : 

aa 



tax 



b4a6 : 

bd 

61 

b7 

Ida 

* $b761, 

X 

b4a9 : 

20 

7f 

b5 

jsr 

* $b57f 


b4ac : 

bd 

21 

b7 

Ida 

* $b721, 

X 

b4af : 

20 

7 f 

b5 

jsr 

* $b57f 


b4b2 : 

a2 

06 


ldx 

#$06 


b4b4 : 

eO 

03 


cpx 

#$03 


b4b6: 

dO 

14 


bne 

* $b4cc 


b4b8 : 

ac 

ab 

Oa 

ldy 

$0aab 


b4bb : 

fO 

Of 


beq 

* $b4cc 


b4bd: 

ad 

aa 

Oa 

Ida 

$0aaa 


b4c0 : 

c9 

e8 


emp 

#$e8 


b4c2 : 

a9 

30 


Ida 

#$30 


b4c4 : 

bO 

le 


bes 

* $b4e4 


b4c6 : 

20 

le 

b5 

jsr 

* $b57c 


b4c9 : 

88 



dey 



b4ca : 

dO 

fi 


bne 

* $b4bd 



Carica cont. di ciclo in A 
Se diverso da 0, salta oltre 
Metti i param. di comando in OP1 
Se = 0, salta a contr. fine com. 

Fissa il carry per uscita err. 

Carica $ in A e 
vai al Buffer uscita 
Incrementa Buffer uscita +1 
Immetti il vai di OP1 in byte Banco 
Se > 0 errore nell' indie OUTPUT 
Fattore di divisione esa 
Carica n. base operando 
Confronta con 8 
Se <8 metti 0P1 

Confronta con contatore di ciclo 
Se uguale salta oltre 
Carica ind. alto di OP1 
Se <> 0 vai oltre 

Fissa il contatore di ciclo per Byte n 

Carica ASCII 0 in A e quindi immetti 

nell' area di imm. temp coman. ASS. 

Incrementa il contat. dei com. ass 

Ciclo per OP 

Ciclo per cont = 0 

Vis. cont. carattere prev. 

Contr. buffer input per fine comando 
Se e ' un fine comando vai ad ind 
Contr. se carat. e' spazio 
Se si immetti nuovo param. espress. 
in imm. temp. dei com. assembler 
Il comando e'> di 9 carat. 

Se no vai al pross. carat. 

Se si visual ? errore 
Lunghezza comando in OP2 (lo) 

Lunghezza byte coman. in 0P2 (LO) 
Carica X con 0 

Cont. ciclo confronto comandi 
Carica X con 0 e usalo come visualiz. 
per Buffer comandi Ass. 

Carica A con cont. comandi 
Indiri. e lungh. cont prec. 

Prendi lungh. punt comandi (0,1,2) 

]e immag. in 0P2 (HI) 

Contr. di risult. per confr. 

Byte a tab.2 

Confronta con Byte in buffer ASS. 

Byte in Tab 1 

Confronta con byte in Buffer ASS 
Cont. ciclo per ind. confr. 

Controllo per 3 cicli compì. 

Contr=no e' solo ind. dì confr. 

Carica punt.(0,1,2)d. lungh. comandi 

Opera come comando di un Byte 

Carica ind. chiave 

Confronta con $E8 

0 in ASCII in A 

Carry set per valut. corr. 

Confronto.con byte nel Buffer ASS. 
Decr.lungh. cont. comandi di 1 
Se <> da 0 vai oltre 
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b4cc 

Oe 

aa 

Oa 

asl 

$0aaa 


b4cf 

90 

Oe 


bcc 

* $b4df 


b4dl 

bd 

14 

b7 

Ida 

* $b714,x 


b4d4 

20 

7 f 

b5 

jsr 

* $b57f 


b4d7 

bd 

la 

b7 

Ida 

* $b71a,x 


b4da 

fO 

03 


beq 

* $b4df 


b4dc 

20 

7 f 

b5 

jsr 

* $b57f 


b4df 

ca 



de^c 



b4e0 

dO 

d2 


bne 

* $b4b4 


b4e2 

fO 

06 


beq 

* $b4ea 


b4e4 

20 

7c 

b5 

jsr 

* $b57c 


b4e7 

20 

7c 

b5 

jsr 

* $b57c 


b4ea 

a5 

63 


Ida 

$63 [ 

f ac ] 

b4ec 

c5 

9f 


cmp 

$9f [ 

ptr2 ] 

b4ee 

fO 

03 


beq 

* $b4f3 


b4f 0 

4c 

8b 

b5 

jmp 

* $b58b 


b4f 3 

ac 

ab 

Oa 

ldy 

$0aab 


b4f 6 

fO 

32 


beq 

* $b52a 


b4f 8 

a5 

64 


Ida 

$64 [ 

rightflag 

b4f a 

c9 

9d 


cmp 

#$9d 


b4f c 

dO 

23 


bne 

* $b521 


b4f e 

a5 

60 


Ida 

$60 [ 

tenexp ] 

b500 

e5 

66 


sbc 

$66 [ 

indice ] 

b502 

aa 



tax 



b50 3 

a5 

61 


Ida 

$61 [ 

lowtr ] 

b505 

e5 

67 


sbc 

$67 [ 

facmo ] 

b50 7 

90 

08 


bcp 

* $b511 


b509 

dO 

6e 


bne 

* $b579 


b5 0b 

eO 

82 


cpx 

#$82 


b50d 

bO 

6a 


bcs 

* $b579 


b50f 

90 

08 


bcc 

* $b519 


b511 

a8 



tay 



b512 

c8 



iny 



b513 

dO 

64 


bne 

* $b579 


b515 

eO 

82 


cpx 

#$82 


b517 

90 

60 


bcc 

* $b579 


b519 

ca 



dex 



b51a 

ca 



dex 



b51b 

8a 



txa 



b51c 

ac 

ab 

Oa 

ldy 

$0aab 


b51f 

dO 

03 


bne 

* $b524 


b521 

b9 

5f 

00 

Ida 

$005f ,y 


b5 24 

20 

2a 

bl 

jsr 

* $bl2a 


b5 27 

88 



dey 



bS28 

dO 

f 7 


bne 

* $b521 


b52a 

ad 

bl 

Oa 

Ida 

$0abl 


b52d 

20 

2a 

bl 

jsr 

* $bl2a 


b5 30 

20 

ad 

b8 

jsr 

* $b8ad 


b5 3 3 

20 

7d 

ff 

jsr 

* $ff7d [ 

primm ] 


b5 36 : 

41 

20 

lb 

51 00 

INIZIO CONTR. PER ASSEMBLY 

b53b: 

20 

de 

b5 

jsr * $b5dc 

b53e : 

ee 

ab 

0a 

ine $0aab 

b5 41 : 

ad 

ab 

Oa 

Ida $0aab 

b544 : 

20 

52 

b9 

jsr * $b952 

b547 : 

a9 

41 


Ida #$41 


Sposta indirzzo chiave 
Bit=0 poi salta al confr. 

Carica ind. car 1 al tlab 
Confronta con byte in buffer ASS 
Carica ind. car 2 al tab 
Se $00, nessun confronto 
Confronta con byte in Buffer ASS 
Contatore cicli ind. -1 
Se <> 0 continua ciclo 
0, contnua confr. 

Confr. con byte in buffer ASS 
Confr. con byte in buffer ASS 
Carica lungh. iiranag. dei comandi ASS. 
Confr. con visualizz. 

Se uguale vai oltre 
Incrementa cont. cicli com 
Preleva lungh.punt comandi 
Se = 0 metti 1 nel Byte comando 
]Carica byte ind. HI da OP2 
Confrontalo con $9D 
Se diverso vai aoltre 
Carica ind. operando LO e 
sottrai indirizzo com. LO 
Metti risultato in X 
Carica ind. operando HI e 
sottrai ind. com HI 
Valutazione dell' espressione 
BRANCH OUT OF RANGE 

Controlla dove 1' espress. e' valida 
Se risult. magg. cont. $82 dai ? 
nella corrispondente espressione 
Copia A in Y e . 
incrementalo da 0 a 1 
Se <>0 visualizza ? errore 
Confronta con $02 
Se minore di 2 visual. ? 

Decrementa reg. X 

Decrementa X 

Trasf valore in A 

Carica in Y cont. lungh. com. 

Se <>0 vai oltre 
Carica vai. da 0P1 

Vai a Subr. STA per A in banco mem 

Decrementa punt. lungh. com. di 1 

Se <> 0 vai oltre 

Prendi valore da OP1 

Vai a Subr. STA per A in banco mem. 

CR crsr-up 

Vai a Sub. PRINT per vis. stringa 
Costanti monitor: 

a esc-q 


Uscita ind. e carica byte 
Incr. di 1 lungh. punt. opcode 
Agg. lungh. a operando 
Somma: contenuto di A +OP3 
Carica A con A di assembler 
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b54 9 : 

8d 

4a 

03 

sta 

$034a 


b54c : 

a9 

20 


Ida 

#$20 


b54e : 

8d 

4b 

D3 

sta 

$034b 


b551 : 

8d 

51 

03 

sta 

$0351 


b554 : 

a5 

68 


Ida 

?68 [ 

facsgn 

b556 : 

20 

d2 

b8 

jsr 

* $b8d2 


b559 : 

8e 

4c 

03 

stx 

$0 3 4c 


b55c : 

a5 

67 


Ida 

$67 [ 

f acmo 

b55e : 

20 

d2l b8 

jsr 

* $b8d2 


b561 : 

8d 

4d 

03 

sta $034d 


b564 : 

8e 

4e 

03 

stx 

$034e 


b567 : 

a5 

66 


Ida 

$66 [ 

indice 

b569 : 

20 

d2 

b8 

jsr 

* $b8d2 


b56c : 

8d 

4f 

03 

sta 

$Ò34f 


b$6f : 

8e 

50 

03 

stx 

$0350 


b572 : 

a9 

08 


Ida 

#$08 


b574 : 

85 

dO 


sta 

$d0 [ 

ndx ] 

b576 : 

4c 

8b 

bO 

jmp 

* $b08b 


b579 : 

4c 

bc 

bO 

jmp 

* $b0bc 


b5 7c: 

20 

7 f 

b5 

jsr 

* $b57f 


b57f : 

8e 

af 

Oa 

stx 

$0aaf 


b582 : 

a6 

9f 


ldx 

$9f [ 

ptr2 ] 

b584 : 

dd 

aO 

Oa 

emp 

$0aa0,x 


b587 : 

fO 

Oa 


beq 

* $b593 


b589 : 

68 



pia 



b58a : 

68 



pia 



b58b : 

ee 

bl 

Oa 

ine 

$0abl 


b58e : 

fO 

e 9 


beq 

* $b579 


b590 : 

4c 

96 

b4 

jmp 

* $b496 


b593 : 

e6 

9f 


ine 

$9.f [ 

ptr2 ] 

b595 : 

ae 

af 

Oa 

ldx 

$0aaf 


b598 : 

60 



rts 




COMANDO MONITOR 

D 



b599 : 

bO 

08 


bes 

* $b5a3 


b59b : 

20 

01 

b9 

jsr 

* $b901 


b59e : 

20 

a7 

b7 

jsr 

* $b7a7 


b5al : 

90 

06 


bcc 

* $b5a9 


b5a3 : 

a9 

14 


Ida 

#$14 


bSa5 : 

85 

60 


sta 

$60 [ 

tenexp 

b5a7 : 

dO 

05 


bne 

* $b5ae 


b5a9 : 

20 

Oe 

b9 

jsr 

* $b90e 


b5ac: 

90 

23 


bcc 

* $b5dl 


b5ae : 

20 

7d 

ff 

jsr 

* $ff7d [ 

primm ] 


b5bl : 

Od 

lb 

51 

00 

<cr> <esc> q 

CONTROLLO PER DISASSEMBLAGGIO 

b5b5 : 

20 

el 

ff 

jsr 

* $ffel [ stop ] 

b5b8 : 

f 0 

14 


beq 

* $b5ce 

b5ba: 

20 

d4 

b5 

jsr 

* $b5d4 

b5bd : 

ee 

ab 

0a 

ine 

$0aab 

b5c0 : 

ad 

ab 

Oa 

Ida 

$0aab 

b5c3 : 

20 

52 

b9 

jsr 

* $b952 

b5c6 : 

ad 

ab 

0a 

Ida 

$0aab 

b5c9 : 

20 

24 

b9 

jsr 

* $b924 

b5cc: 

bO 

eO 


bes 

* $b5ae 


nel buffer di proc. per pross. linea 
Carica A fcon SPAZIO 
nel buffer della procedura per la 
prossima linea 

Carica Byte banco di ind. in A 
Acc in 2 Bytes ASCII: HI=A LO=X 
Imm. nel buffer di proc il Byte di IND 
alto per linea succ. 

Acc in 2 Bytes ASCII: HI=A LO=X 

Imm. nel Buffer di proc il Byte 
alto per linea successiva 
Incrementa il Buffer di proce. per 
la prossima linea da elab. 

A in 2 Byte ASCII: HI=A 
LO=X 

Immetti cont. Buffer e procedi 
Buffer di tastiera fissato per 
una lunghezza di 8 caratteri 
Salto al ciclo di attesa input 
Esegui 2 volte la seguente rout. 

Imm. i cont del reg. X 
Car. punt.visual, com. ass. 

Confr. con cart. dà buffer ASS 
Se uguale esci 
Preleva ind. RTS da STACK 
Idem 

Incrementa ciclo confronto comandi 
Se >255 visualizza errore 
Salta alla corrisp. espress. 

Visualizza punt. comandi +1 
Riportati al vecchio cont. X 


Nessun operando valido 
Copia 0P1 su 0P3 
Prendi operando 0P1 

Se e ' un Oper. valido invia n. passi 
Il valore del passo stand, e' $14 
nel contatore di passo basso 
Salto incond. al Disass. 

Immag. differenza 0P1-0P3 in 0P1 
Esegui un CLEAR CARRY 
Vai a sub. PRINT 

Cr ESC-q 

Sono costanti del MONITOR 


Vai a Sub. STOP: controlla STOP prem 
Se prem, vai ciclo att. INPUT 
Prep. e vis. linea disass. 

Incr. cont. lungh. cod.oper di 1 
e immetti ind cale, in A 
SOMMA: Cont acc+0P3 
Lungh.punt. peramp.passo in A 
Sottrazione: OPl-cont. acc 
Continua disass. se nec. 
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b5ce : 

4c 

8b 

bO 

jmp 

* 

$b08b 


b5dl: 

4c 

bc 

bO 

jmp 

★ 

$b0bc 


b5d4 : 

a9 

2e 


Ida 

#$2e 

- 

b5d6 : 

20 

d2 

ff 

jsr 

* 

$ffd2 

[ bsout 

b5d9 : 

20 

a8 

b8 

jsr 

* 

$b8a8 


b5dc: 

20 

92 

b8 

jsr 

* 

$b892 


b5df : 

20 

a8 

b8 

jsr 

* 

$b8a8 


b5e2 : 

aO 

00 


ldy 

#$00 


b5e4 : 

20 

la 

bl 

jsr 

* 

$blla 


b5e7 : 

20 

59 

b6 

jsr 

* 

$b6 59 


b5ea : 

48 



pha 




b5eb: 

ae 

ab 

Oa 

Idx 

$0aab 


b5ee: 

e8 



inx 




b5ef : 

ca 



dex 




b5f 0 : 

10 

Oa 


bpl 

* 

$b5f c 


b5f 2 : 

20 

7d 

ff 

jsr 

* 

$f f 7d 

[ primm 


b5f 5 : 

20 





ROUTINE DI CONTROLLO 

i BANCHI 

b5e4 : 

20 

la 

bl 

jsr 

* $blla 

b5e7 : 

20 

59 

b6 

jsr 

* $b659 

b5ea : 

48 



pha 


b5eb: 

ae 

ab 

0a 

ldx 

$0aab 

b5ee: 

e8 



inx 


b5ef : 

ca 



dex 


b5f 0 : 

10 

Oa 


bpl 

* $b5fc 

b5f 2 : 

20 

7d 

ff 

jsr 

* $ff7d [ primm 

b5f 5 : 

20 

20 

20 

00 


ROUTINE PER 

ASSEMBLER/DISASSEMBLER 

b5f 9 : 

4c 

02 

b6 

jmp 

* $b602 

b5fc: 

20 

la 

bl 

jsr 

* $blla 

b5f f : 

20 

a5 

b8 

jsr 

* $b8a5 

b602 : 

c8 



iny 


b603 : 

cO 

03 


cpy 

#$03 

b60 5 : 

90 

e8 


bcc 

* $b5ef 

b607 : 

68 



pia 


b608: 

a2 

03 


ldx 

#$03 

b60a : 

20 

al 

b6 

jsr 

* $b6al 

b6 Od : 

a2 

06 


ldx 

#$06 

b60f : 

eO 

03 


cpx 

#$03 

b611 : 

d0 

17 


bne 

* $b62a 

b613 : 

ac 

ab 

0a 

ldy 

$0aab 

b616 : 

f0 

12 


beq 

* $b62a 

b618 : 

ad 

aa 

0a 

Ida 

$0aaa 

b61b : 

c9 

e8 

. 

emp 

#$e8 

b6 ld : 

08 



php 


b6 le : 

20 

la 

bl 

jsr 

* $blla 

b621 : 

28 



plp 


b622 : 

bO 

ld 


bes 

* $b641 

b624 : 

20 

c2 

b8 

jsr 

* $b8c2 

b627 : 

88 



dey 


b628 

dO 

ee 


bne 

* $b618 

b62a : 

Oe 

aa 

0a 

asl 

$0aaa 


Vai a ciclo di attesa INPUT 
Vis. ? e poi come sopra 
Carica Acc con . 

Vai a subr.BSOUT 

Vis. car. SPAZIO, CR, crsr up 

Vis. da OP3 come 5 Bytes ASCII 

stessi cara di $B5D9 

Carica Y per FETCH 

Routine LDA per banchi mem 

Controllo valid. per Bytes Cod. oper. 

Metti risultato in STACK 

Carica ciclo lungh. comando 

Incrementa la lunghezza di 1 

decrementa di 1 

Visualizza vai. com. <0 e' cost. 

Vai a subr. PRINT 

Costanti del MONITOR costituite da 
3 SPAZI 


Rout. di carie da un banco mem 
Contr. di valid. byte cod. oper. 
Metti il ris. nello STACK 
Carica ciclo lungh. comando 
Incrementa la lunghezza di 1 
Decrementa la lunghezza di 1 
Vis. vai. comando. Se <0 costan. 
Vai a subr. PRINT 


Routine del monitor di 3 spazi 


Salta a LDA per routine 

Rout. LDA per A in banco di mem. 

Vis. A come 2 bytes ASCII + Spazio 

Incrementa X di 1 

Confronta con $03 

Se <3 continua il ciclo 

Prendi il risultato dallo STACK 

Carica 3 car. per uscita mnem. 

e per uscita car. in X 

Iniziai, ciclo cont. con 6 

Dopo 3 cicli verrà' visualizzato 

1 ' attuale valore indir, va in uscita 

Numero dei bytes dei com. operando 

Se nessun bytes comando, salta 

Indirizzo chiave del comando 

Controllo pep salto 

Immetti il flag di CARRY nello STACK 
Rout. di car. per un banco 
Esegui un reset del FLAG del Carry 
Se Carry set esegui salto 
Trasf. A in oper. di 2 Bytes ASCII 
Se il comando in ogg. ha un operando 
di 2 Bytes 1' espres. del II Byte e' 
mask. dalla chiave di indirizzo 
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b62d : 

90 

Oe 


bcc 

★ 

$b63d 

b62f : 

bd 

14 

b7 

Ida 

* 

$b714,x 

b6 3 2 : 

20 

d2 

f f 

jsr 

* 

$ffd2 [ bsout ] 

b6 35 : 

bd 

la 

b7 

Ida 

★ 

$b71a,x 

b638 : 

fO 

03 


beq 

★ 

$b63d 

b63a: 

20 

d2 

ff 

jsr 

* 

$ffd2 [ bsout ] 

b6 3d: 

ca 



dex 



b6 3e: 

dO 

cf 


bne 

* 

$b60f 

b64 0 : 

60 



rts 




INDIRIZZI PER COMANDI DI SALTO 


b641 : 

20 

4d 

b6 

jsr 

* $b64d 


b644 : 

18 



eie 



b64 5 : 

69 

01 


adc 

#$01 


b64 7 : 

dO 

01 


bne 

* $b64a 


b649 : 

e8 



inx 



b64a : 

4c 

9£ 

b8 

jmp 

* $b89f 


b64d : 

a6 

67 


ldx 

$67 [ 

facmo ] 

•b64f : 

a8 



tay 



b650 : 

10 

01 


bpl 

* $b65 3 


b652 : 

ca 



dex 

$66 [ 


b653 : 

65 

66 


adc 

indice 

b6 55 : 

90 

01 


bcc 

* $b658 


b657 : 

e8 



inx 



b658 : 

60 



rts 



ROUTINE PER 

INDIRIZZI E LUNGHEZZA 

b659 : 

a8 



tay 



b6 5a: 

4a 



lsr 

a 


b65b : 

90 

Ob 


bcc 

* $b668 


b65d: 

4a 



lsr 

a 


b65e : 

bO 

17 


bes 

* $b677 


b66 0 : 

c9 

22 


emp 

#$22 


b662 : 

f0 

13 


beq 

* $b677 


b664 : 

29 

07 


and 

#$07 


b666 : 

09 

80 


ora 

#$80 


b668 : 

4a 



lsr 

a 


b669 : 

aa 



tax 



b66a : 

bd 

c3 

b6 

Ida 

* $b6c3,x 


b66d : 

bO 

04 


bes 

* $b673 


b66f : 

4a 



lsr 

a 


b670 : 

4a 



1 sr 

a 


b671 : 

4a 



lsr 

a 


b672 : 

4a 



1 sr 

a 


b67 3 : 

29 

Of 


and 

#$0f 


b6 75 : 

dO 

04 


bne 

* $b67b 


b677 : 

a0 

80 


ldy 

#$80 


b679 : 

a9 

00 


Ida 

#$00 


b67b : 

aa 



tax 



b67c : 

bd 

07 

b7 

Ida 

* $b707,x 


b67f : 

8d 

aa 

Oa 

sta 

$0aaa 


b682 : 

29 

03 


and 

#$03 


b684 : 

8d 

ab 

0a 

sta 

$0aab 


b687 : 

98 



tya 



b688 : 

29 

8 f 


and 

#$8f 


b68a : 

aa 



tax 



b68b : 

98 



tya 



b68c: 

a0 

03 


ldy 

#$03 



Se il bit non e' fiss. esegui salto 
Carica car. per tipo indir. 

Vai a subr. BSOUT 

Carica car. per tipo indir. 

Se <> 0 salta 
Vai a subr. BSOUT 
Ciclo di uscita ind. -1 
Uscita di tutti e 6 i cicli 


Cale, indirizzi X=HI A=LO 
Esegui clr carry per somma 
Aggiun. 1 per correz. ind. LO 
Controllo per overflow 
Aggiu. 1 per correz. HI 
Dai vai. di A + X come 4 Bytes 
Carica ind. HI prov. operando 0P3 
Metti in X ind. salto 
Continua con ind salto 
Decrementa ind. HI -1 
Somma il salto a LO (0P3) 

Se nessun OVERFLOW salta corr. HI 
Correzione OVERFLOW per ind. HI 


Metti cod. prova in Y 
Sposta bitO e controlla 
Se bit 0=0 Ok 
Sposta bit 1 
Se bit 1=1 errore 

Controllo pos. cod. $89 usato in uscita 
Se pos. controllo non valid. 

Mask bits 3-7 

Mask bit 7 

Dividi cont A.per 2 

e visualizza in reg. X 

Carica byte come tav. rif. ind. 

Se c'e' resto da div. preced. salta 
Copia il contenuto del nibble UP 
(bits 4-7) nel bit (4-3) 
corrispondente a nibble LO 
* * * 

Esegui MASK OUT per bit 4-7 
Se diverso da 0 OK 

Se codice non valido Carica Y con $80 

e 1 ' A con $00 

Spostam. non eseguito in X 

Carica chiave di ind. da tabella ed 

immetti in $0AAA 

Esegui MASK OUT per BIT 2-7 

Immag. bits 0 e 1 

Copia codice testo in A 

Esegui MASK OUT per bit 4,5,6 

Immetti valore preced in X 

Copia codice testo in A 

Iniziai, cont. ciclo con 3 





b68e: eO 8a cpx #$8a 

b690: fO Ob beq * $b69d 

b692: 4a lsr a 

b693: 90 08 bcc * $b69d 

b695: 4a lsr a 

b696: 4a lsr a 

b697: 09 20 ora #$20 

b699: 88 dey 

b69a: dO fa bne * $b696 

b69c: c8 iny 

b69d: 88 dey 

b69e: dO f2 bne * $b692 

b6a0: 60 rts 


INVIO DI UN CARATTERE 

b6al: a8 tay 

b6a2: b9 21 b7 Ida * $b721,y 

b6a5: 85 63 sta $63 [ fac ] 

b6a7: b9 61 b7 Ida * $b761,y 

b6aa: 85 64 sta $64 [ rightflag ] 

b6ac: a9 00 Ida #$00 

b6ae: aO 05 ldy #$05 

b6b0: 06 64 asl $64 [ rightflag ] 

b6b2: 26 63 rol $63 [ fac ] 

b6b4 : 2a rol a. 

b6b5: 88 dey 

b6b6: dO f8 bne * $b6b0 

b6b8: 69 3f adc #$3f 

b6ba: 20 d2 ff jsr * $ffd2 [ bsout ] 

b6bd: ca dex 

b6be: dO ec bne * $b6ac 

b6c0: 4c a8 b8 jmp * $b8a8 


TAVOLA DI RIFERIMENTO INDIRIZZI 


b6c3: 40 02 45 03 dO 08 40 09 @ e P @ 

b6cb: 30 22 45 33 dO 08 40 09 0"e3P @ 

b6d3: 40 02 45 33 dO 08 40 09 @ e3P @ 

b6db: 40 02 45 b3 dO 08 40 09 @ e.P @ 

b6e3: 00 22 44 33 dO 8c 44 00 "d3P d 

b6eb: 11 22 44 33 dO 8c 44 9a <crsr d 
b6f3: 10 22 44 33 dO 08 40 09 "d3P @ 

b6fb: 10 22 44 33 dO 08 40 09 "d3P @ 

b703: 62 13 78 a9 " <home> 


TIPI DI INDIRIZZI E LUNGHEZZA CHIAVI 

b707: 00 21 81 82 00 00 59 4d 
b70f: 91 92 86 4a 85 9d 2c 29 
b717: 2c 23 28 24 59 00 58 24 
b71f: 24 00 le 8a le 23 5d 8b 
b727: lb al 9d 8a ld 23 9d 8b 
b72f : ld al 00 29 19 ae 69 a8 
b737: 19 '23 24 53 lb 23 24 53 
b73f: 19 al 00 la 5b 5b a5 69 


Confronta vai Mask con $8A 

Se uguale salta 

Dividi cont. A per 2 

Se non c' e' resto alla div. salta 

Dividi per 2 cont di A 

Idem 

Fissa il bit 5 di A 
Decrementa il cont. di ciclo di 1 
Se <>0 continua il ciclo 
Incrementa di 1 il cont. ciclo 
Decrementa cont ciclo 1 
Se <>0 esegui ancora la div. 


Cod. comando come vis in Y 
Carica byte da tavola 1 
e metti in OP2 (LO) 

Carica byte da tavola 2 
e metti in OP2 (HI) 

Carica A con $00 

Esegui lo spostamento verso sinistra 
dei 5 bits di OP2 e mettili in A 
Ciclo per seguire quanto sopra 
Idem 

Controllo per vedere se la somma del 
num. $3F restituisce un car. valido 
o un ? 

Vai a subr. BSOUT 

Esegui 3 cicli per le 3 lettere dal 
vai. in OP2 (16-bit ind. LO/HI) 

Vai a $b8a8 e poi RTS 


"d3P d 


8 


In questo gruppo sono presenti oltre 
che gli indirizzi e la lunghezza 
chiavi anche le tavole mnemoniche 
relative ai comandi tipi dell' 
Assembler. 

Si tratta di 2 tavole per cui un 
byte della tavola 1 restituisce, in 
rapporto al corrispondente valore 
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b747 : 

24 

24 

ae 

ae a8 

ad 

29 

00 


b7 4f : 

le 

00 

15 

9c 6d 

9c 

a5 

69 


b757 : 

29 

53 

84 

13 34 

11 

a5 

69 


b75f : 

2 3 

a0 

d8 

6 2 5a 

48 

26 

62 


b767 : 

94 

88 

54 

44 c8 

54 

68 

44 


b76f : 

e8 

94 

00 

b4 08 

84 

74 

b4 


bill : 

28 

6e 

74 

f4 cc 

4a 

72 

f 2 


bili : 

a4 

8a 

00 

aa a2 

a2 

74 

74 


b787 : 

74 

72 

44 

68 b2 

32 

b2 

00 


b78f : 

22 

00 

la 

la 26 

26 

72 

72 . 


b7 9 7 : 

88 

c8 

c4 

ca 26 

48 

44 

44 


b79f : 

a2 

c8 

Od 

20 20 

20 




CONTROLLO PER : 

E SEPARATORI 

FRA I COMANDI 

b7a5 : 

c6 

la 


dee 

$7a 


[ 

dsdec ] 

blal: 

20 

ce 

b7 

jsr 

* $b7ce 



b7aa : 

bO 

16 


bes 

* $b7c2 



b7ac: 

20 

el 

b8 

jsr 

* $b8e7 



b7af : 

dO 

09 


bne 

* $b7ba 



b7bl : 

c6 

la 


dee 

$7a 


[ 

dsdec ] 

b7b3 : 

ad 

b4 

0a 

Ida 

$0ab4 



b7b6 : 

dO 

11 


bne 

* $b7c9 



b7b8 : 

fO 

Od 


beq 

* $b7c7 



b7ba: 

c9 

20 


emp 

#$20 



b7bc: 

fO 

Ob 


beq 

* $b7c9 



b7be: 

c9 

2c 


emp 

#$2c 



b7c0 : 

fO 

07 


beq 

* $b7c9 



b7c2 : 

68 



pia 





b7c3 : 

68 



pia 





b7c4 : 

4c 

bc 

b0 

jmp 

* $b0bc 


bici : 

38 



sec 






b7c8 : 

24 




$ 

b7c9 : 

18 



eie 


b7ca : 

ad 

b4 

0a 

Ida 

$0ab4 

b7cd : 

60 



rts 


VALUTAZIONE 

PARAMETRI DI UN COMANDO 

b7ce : 

a9 

00 


Ida 

#$00 

b7d0 : 

85 

60 


sta 

$60 [ tenexp ] 

b7d2 : 

85 

61 


sta 

$61 [ lowtr ] 

b7d4 : 

85 

62 


sta 

$62 [ expsgn ] 

b7d6 : 

8d 

b4 

0a 

sta 

$0ab4 

b7d9 : 

8a 



txa 


b7da : 

48 



pha 


b7db : 

98 



tya 


b7dc: 

48 



pha 


b7dd : 

20 

e9 

b8 

jsr 

* $b8e9 

b7e0 : 

dO 

03 


bne 

* $b7e5 

b7e2 : 

4c 

72 

b8 

jmp 

* $b87e 

b7e5 : 

c9 

20 


emp 

#$20 

b7e7 : 

f0 

f 4 


beq 

* $b7dd 

b7e9 : 

a2 

03 


ldx 

#$03 

b7eb : 

dd 

f 5 

bO 

emp 

* $b0f5,x 

b7ee : 

fO 

06 


beq 

* $b7f6 


della tavola 2 un codice di 16 bit 
come carattere di 3 lettere 


Punt. buffer input per car. 

Prendi operando 0P1 

Control-lo per CARRY settato=errore 

Ripris. ultimo car.letto 

Se e ' un fine comando continua 

Come b7a5 

Carica flag rie. errori 
Se <>0 OK ed esci 

Operando non valido.Errore e esci 
Contr. se carat. letto e' SPAZIO 
Operatore valido, OK e esci 
Contr. se caratt.e'una virgola 
Se e ' un separatore valido, OK esci 
Sull' indir, nello STACK e' stato eseg 
un CLEAR, un ? viene vis. ed il progr. 
salta al ciclo di att. INPUT 
Contr. per carry set=errore 


Salta a $b7ca 


Esegui un CLEAR di carry.Segn per OK 
Carica flag rie. errore 


Carica A con $0 per iniz.param 
Esegui CLR su param com. di 3 Byte 
N. 1 (OP1), inpag. zero da indirizzo 
$62 (HI) a $(60) (LO) 

Imm. temp. memo, per contr. errori 

Metti X in A 

Salva su STACK 

Metti Y in A 

Salva su STACK 

Contr. buffer input x fine comando 
Carat.: e ? non sono mark di fine,pros 
Esegui rout.usc. con clear di carry 
(puntatore).E ' uno SPAZIO 
Se si allora leggi pross. car. 

Carica vis. per 4 car. di conv. 
Controllo di conversione (%&+$) 
fino a tr. caratt. di conv. 
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b7f 0 

ca 



dex 




b7f 1 

10 

f 8 


bpl 

* $b7eb 



b7f 3 

e8 



inx 




b7f 4 

c6 

7a 


dee 

$7a [ 

dsdec ] 


b7f 6 

bc 

8a 

b8 

Idy 

* $b88a,x 



b7f 9 

bd 

8e 

b8 

Ida 

* $b88e,x 



b7f c 

8d 

b6 

Oa 

sta 

$0ab6 



b7f f 

20 

e9 

b8 

jsr 

* $b8e9 



b802 

fO 

7a 


beq 

* $b87e 



b804 

38 



sec 




b80 5 

e9 

30 


sbe 

#$30 



b807 

90 

75 


bcc 

* $b87e 



b809 

c9 

Oa 


emp 

#S0a 



b80b 

90 

06 


bcc 

* $b813 



b80d 

e9 

07 


sbe 

#$07 



b80f 

c9 

10 


emp 

#$10 



b811 

bO 

6b 


bes 

* $b87e 



b813 

8d 

b5 

Oa 

sta 

$0ab5 



b816 

cc 

b5 

Oa 

cpy 

$0ab^ 



b819 

90 

61 


bcc 

* $b87c 



b81b 

fO 

5 f 


beq 

* $b87c 



b81d 

ee 

b4 

Oa 

ine 

$0ab4 



b820 

cO 

Oa 


cpy 

#$0a 



b822 

dO 

Oa 


bne 

* $b82e 



b824 

a2 

02 


Idx 

#$02 



b8 26 

b5 

60 


Ida 

$60,x [ 

tenexp 

] 

b828 

9d 

b7 

Oa 

sta 

$0ab7,x 



b82b 

ca 



dex 




b82c 

10 

f 8 


bpl 

* $b826 



b82e 

ae 

b6 

Oa 

ldx 

$0ab6 



b8 31 

06 

60 


asl 

$60 [ 

tenexp 

] 

b833 

26 

61 


rol 

$61 [ 

lowtr ] 


b835 

26 

62 


rol 

$62 [ 

expsgn 

] 

b8 37 

bO 

43 


bes 

* $b87c 



b839 

ca 



dex 




b83a 

dO 

f 5 


bne 

* $b831 

- 


b83c 

cO 

Oa 


cpy 

#$0a 



b8 3e 

dO 

22 


bne 

* $b862 



b840 

Oe 

b7 

Oa 

asl 

$0ab7 



b843 

2e 

b8 

Oa 

rol 

$0ab8 



b846 

2e 

b9 

Oa 

rol 

$0ab9 



b849 

bO 

31 


bes 

* $b87c 



b84b 

ad 

b7 

Oa 

Ida 

$0ab7 



b84e 

65 

60 


adc 

$60 [ 

tenexp 

] 

b850 

85 

60 


sta 

$60 [ 

tenexp 

] 

b852 

ad 

b8 

Oa 

Ida 

$0ab8 



b8 5 5 

65 

61 


adc 

$61 [ 

lowtr ] 


b857 

85 

61 


sta 

$61 [ 

1owt r ] 


b85 9 

ad 

b9 

Oa 

Ida 

$0ab9 



b8 5c 

65 

62 


adc 

$62 [ 

expsgn 

] 

b85e 

85 

62 


sta 

$62 [ 

expsgn 

] 

b860 

bO 

la 


bes 

* $b87c‘ 



b862 

18 



eie 




b8 6 3 

ad 

b5 

Oa 

Ida 

$0ab5 



b866 

65 

60 


adc 

$60 [ 

tenexp 

] 

b868 

85 

60 


sta 

$60 [ 

tenexp 

] 

b86a 

8a 



txa 




b86b 

65 

61 


adc 

$61 [ 

lowtr ] 

! 

b86d 

85 

61 


sta 

$61 [ 

lowtr ] 


b86f 

8a 



txa 





Visual, tavola cale. -1 
Ciclo di ricerca attr. tavola 
Reg X fissato a $0 

Scarica punt. al buffer di input -1 
Carica reg.Y con sist. base 
Carica A con fatt. di moltiplic. 
per sistema base ed immag. 

Contr. buffer input fine com. per : ? 
Uscita per determ. operando 
Carry settato per sottrazione 
Conversione 
Se car.<0 esci 

Contr. per car se e' num fra 0 e 9 
Se posit. vai a conv. esa 
Conv. di num. esa A-F 
Se il valore non e' fra 0-F esci 
dalla subr. determ. operando 
Immag. i valori esa 
Confronta la base con vai. esa 
Se vai. base < carat. errore 
Se vai. base = carat. errore 
Incr. di 1 Byte rie. errore 
Contr. per scelta input decimale 
Se neg. vai a iniz. decim 
Fissa a 2 il cont. di ciclo 
Copia' 1' operando di 3 byte (OP1) 
nell' operando temporaneo 
per ingresso ind. decimale 
con valori ($0AB9=HI,$AB7=LO) 

Carica contatore per fattore di 
moltiplicazione. #-Byte 
Operando OP1 
Moltiplica per 2 

Contr. per overflow, se pres= errore 
Moltiplica per 2 cont. di ciclo 
Ciclo a OP1 per moltipl. 

Contr. per n. base se decimale 

Se no vai a conv. decimale 

Ciclo di conv. dee: i 3 byte di opera 

temporaneo in $AB9-$AB7 

sono moltiplicati per 2 

Se Overflow, errore 

—In questa routine viene eseguita la 

somma dei 3 Bytes operando temporaneo 

negli ind. $0AB9-$0AB8-$AB ' 

per il cont. di 3 Bytes dell' operando 

OP1 che viene controllato 

per la rilevazione di possibili 

OVERFLOW 

Il risultato della somma sara' 
immesso in OP1 

Se c'e ' Overflow allora errore 
Esec di CLEAR CARRY 
Carica vaolre carat. 

Aggiungi il valore dell' ultimo 
posizione di OP1 
Carica A con 0 

Controllo di Overflow sommando 1 ' 
ultima significat. pos. di OP1 
Carica 0 in A 
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b87 0 : 

65 

62 

adc 

$62 [ 

expsgn 

b872 : 

85 

62 

sta 

$62 [ 

expsgn 

b874 : 

bO 

06 

bcs 

* $b87c 


b8 76 : 

29 

fO 

and 

#$f0 


b8 78 : 

dO 

02 

bne 

* $b87c 


b87a : 

fO 

83 

beq 

* $b7ff 


b87c: 

38 


sec 




b8 7d: 

24 





$ 

b87e : 

18 



eie 



b87f : 

8c 

b6 

0a 

sty 

$0ab6 


b882 : 

68 



pia 



b883 : 

a8 



tay 



b884 : 

68 



pia 



b885 : 

aa 



tax 



b886 : 

ad 

b4 

Oa 

Ida 

S0ab4 


b889 : 

60 



rts 




b88a : 

10 

0a 

08 

02 04 

03 03 01 


VISUALIZZAZIONE 

CONTENUTI DEL 

S. O. 

b8 92 : 

a5 

68 


Ida 

$68 [ 

facsgn 

b894 : 

20 

d2 

b8 

jsr 

* $b8d2 


b897 : 

8a 



txa 



b898 : 

20 

d2 

ff 

jsr 

* $ffd2 [ 

bsout 

b89b : 

a5 

66 


Ida 

$66 [ 

indice 

b89d : 

a6 

67 


ldx 

$67 [ 

facmo 

b89f : 

48 



pha 



b8a0 : 

8a 



txa 



b8al : 

20 

c2 

b8 

jsr 

* $b8c2 


b8a4 : 

68 



pia 



b8a5 : 

20 

c2 

b8 

jsr 

* $b8c2 


b8a8 : 

a9 

20 


Ida 

#$20 


b8aa : 

4c 

d2 

ff 

jmp 

* $ffd2 [ 

bsout 

b8ad : 

20 

7d 

ff 

jsr 

* $ff7d [ 

primm 


b8b0 : 

Od 

91 

00 

<cr> <crsr 

u> 

b8b4 : 

a9 

Od 


Ida 

#$0d 


b8b6 : 

4c 

d2 

ff 

jmp 

* $ffd2 [ 

bsout 

b8b9 : 

20 

7d 

f f 

jsr 

* $ff7d [ 

primm 


b8bc: 

Od 

lb 

51 

20 00 

<cr> 

<esc> q 

b8cl : 

60 



rts 



CONVERSIONE 

CONTENUTI 

ACCUMULATORE 

b8c2 : 

8e 

af 

0a 

stx $0aaf 


b8c5 : 

20 

d2 

b8 

jsr * 

$b8d2 


b8c8 : 

20 

d2 

ff 

jsr * 

$ffd2 

[ bsout' 

b8cb: 

8a 



txa 




Controllo di Overflow nella posizione 
di 0P1 

Se contr. overflow pos. errore 

Operaz. di mask out su nibble LO 

Se nibble sup. <>0, errore 

Valuta pos. succ. operando 

Fissa il carry per segn. di rii.errore 


Salta a $B87F 


Clear di carry per segn di par. OK 
Immag. base sist. numerico in uso 
Ripristina il vecchio contenuto di Y 
dallo stack 

Ripristina il vecchio contenuto di X 
dallo Stack 

Carica A con punt. a errore 


Basi dei sistemi numerici 


Carica A con Byte di banco (HI di 0P3) 
A in 2 byte ASCII: HI=A,LO=X 
Codice ASCII per valore LO in A 
Vai a sub. BSOUT 

Carica A con Byte di indir.(LO di 0P3) 
Carica X con Byte di indir.(HI di 0P3) 
Immag. A in STACK 

Trasf in A valore di 0P3 (ind. HI) 

Vis. A in 2 car. ASCII 
Carica A con Ind. LO (0P3) 

Vis. A con 2 car. ASCII 
Carica un Blank in A 
Vai a subr. BSOUT 
Vai a subr. PRIMM 


Costanti 

Carica codice car. Cr in A 
Vai a subr. BSOUT 
Vai a subr. PRIMM 

COSTANTI DEL MONITOR PER RITORNO 
CARRELLO E CLEAR DELLA SUCC. LINEA 


Chiusura e ritorno da subroutine 


Immag. cont.vecchi reg. X 
Immetti A in 2 byte ASCII:HI=A,LO=X 
Vai a subr. BSOUT 
Carica in A car. da X 
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b8cc : 

ae 

af 

0a 

ldx 

$0aaf 


Riprist. reg X 

b8cf : 

4c 

d2 

ff 

jmp 

* $ffd2 

[ bsout ] 

Vai a sub. BSOUT 

b8d2 : 

48 



pha 



Imm. temp. cont. A 

b8d3 : 

20 

de 

b8 

jsr 

* $b8dc 


Converti nibble basso in ASCII 

b8d6 : 

aa 



tax 



Prec. vai in reg X 

b8d7 : 

68 



pia 



Riprist. cont. A 

b8d8 : 

4a 



lsr 

a 


Rout. di spostarti, a destra di 4 volte 

b8d9 : 

4a 



lsr 

a 


in modo tale che il nebbie HI (bits 

b8da : 

4a 



lsr 

a 


4-7) sia spostato nel LO nibble 

b8db : 

4a 



lsr 

a 


* * * 

b8dc : 

29 

0f 


and 

#$0f 


Mask out su nibble HI 

b8de : 

c9 

Oa 


emp 

#$0a 


Controllo per n. da 0 a 9 

b8e0 : 

90 

02 


bcc 

* $b8e4 


Se posit. crea codice ASCII 

b8e2 : 

69 

06 


adc 

#$06 


Convers car. per A-F 

b8e4 : 

69 

30 


adc 

#$30 


Gener. cod. ASCII per cont. A 

b8e6 : 

60 



rts 




ROUT. 

DI 

CARICAMENTO DA BUFFER DI INPUT 


b8e7 : 

c6 

7a 


dee 

$7a 

[ dsdec ] 

Decr. -1 buffer input 

b8e9: 

8e 

af 

0a 

stx 

$0aaf 


Imm. cont. reg. X 

b8ec: 

a6 

la 


ldx 

$7a 

[ dsdec ] 

Carica X in buff. input (vis) 

b8ee : 

bd 

00 

02 

Ida 

$0200,x 


Car. car dal buffer input comandi 

b8 f 1 : 

fO 

06 


beq 

* $b8f9 


E' stato trovato un $00 (fine com.) 

b8f 3 : 

c9 

3a 


emp 

#$3a 


Contr. se car. letto e' : 

b8f 5 : 

f0 

02 


beq 

* $b8f9 


Se si esci con flag = fissato 

b8f 7 : 

c9 

3f 


emp 

#$3f 


Contr. se car. letto e ' un ? 

b8f 9 : 

08 



php 



Imm. vai. del flag = 

b8fa : 

e6 

la 


ine 

$7a 

[ dsdec ] 

Incr buffer input di 1 per succ. car 

b8f c : 

ae 

af 

0a 

ldx 

$0aaf 


Ripristina X 

b8f f : 

28 



plp 



Ripristina lo stato del flag = 

b900 : 

60 



rts 




ROUTINE DI COPIA 




b901 : 

a5 

60 


Ida 

$60 

[ tenexp ] 

Questa routine serve per copiare il 

b903 : 

85 

66 


sta 

$66 

[ indice j 

contenuto degli indirizzi di memoria 

b905 : 

a5 

61 


Ida 

$61 

[ lowtr ] 

$62-$61-$60, cioè' di OP1 in OP3 

b907 : 

85 

67 


sta 

$67 

[ facmo ] 

cioè' nelle locazioni $68-$67-$66 

b909 : 

a5 

62 


Ida 

$62 

[ expsgn ] 


b9 Ob : 

85 

68 


sta 

$68 

[ facsgn ] 

★ ★ ★ 

b90d : 

60 



rts 




ROUTINE DI IMMAGAZZINAMENTO 

IN OP1 


b90e : 

38 



sec 



Sottrazione: carry set 

b90f : 

a5 

60 


Ida 

$60 

[ tenexp ] 

Carica A con OP1 LO 

b911 : 

e5 

66 


sbe 

$66 

[ indice ] 

Sottrai il vai. +basso da OP3 

b913 : 

85 

60 


sta 

$60 

[ tenexp ] 

Imm. risul. in OPl(LO) 

b915 : 

a5 

61 


Ida 

$61 

[ 1owt r ] 

Carica A con $61 

b917 : 

e5 

67 


sbe 

$67 

[ facmo ] 

Sottrai $67 da OP3 

b919 

85 

61 


sta 

$61 

[ 1owt r ] 

Imm. ris. in OP3 

b9-lb: 

a5 

62 


Ida 

$62 

[ expsgn ] 

Carica A con OPl (HI) 

b9 ld : 

e5 

68 


sbe 

$68 

[ facsgn ] 

Sottrai $68 da OP3 

b91 f : 

85 

62 


sta 

$62 

[ expsgn ] 

Imma. ris. in OPl (HI) 

b9 21 : 

60 



rts 





ROUTINE DI SOTTRAZIONE 


b9 22 : à9 01 


Ida #$01 


Ca'rica A con 1 e imm. lo come minuendo 
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b924 : 

8d 

af 

Oa 

sta 

$0aaf 


in $0AAF 

b927 : 

38 



sec 



Carry set per sottrazione 

b928 : 

a5 

60 


Ida 

$60 [ 

tenexp ] 

Carica A con OP1 LO 

b92a: 

ed 

af 

Oa 

sbc 

$0aaf 


Sottrai minuendo da OP1 LO 

b92d : 

85 

60 


sta 

$60 [ 

tenexp ] 

Scrivi il risult. della sottrazione 

b92f : 

a5 

61 


Ida 

$61 [ 

1owt r ] 

Carica A con $61 (OP1 MID) 

b9 31 : 

e9 

00 


sbc 

#$00 


Controllo per OVERFLOW 

b933: 

85 

61 


sta 

$61 [ 

lowtr ] 

Scrivi il risult. della sottrazione 

b9 3 5 : 

a5 

62 


Ida 

$62 [ 

expsgn ] 

Carica A con OP1 (HI) 

b9 37 : 

e9 

00 


sbc 

#$00 


Controllo per Overflow 

b93 9 : 

85 

62 


sta 

$62 [ 

expsgn ] 

Scrive il risul. della sub. 

b93b: 

60 



rts 




b93c: 

38 



sec 



Esecuzione dell ' operazione di sottra 

b93d: 

a5 

63 


Ida 

$63 [ 

f ac ] 

zione della costante 1 dall ' operando 

b93f : 

e9 

01 


sbc 

#$01 


OP2 nelle locazioni di memoria 

b941 : 

85 

63 


sta 

$63 [ 

f ac ] 

$65,$64,$63 

b943 : 

a5 

64 


Ida 

$64 [ 

rightflag 

] * * * 

b945 : 

e9 

00 


sbc 

#$00 


* * * 

b94 7 : 

85 

64 


sta 

$64 [ 

rightflag 

] * * * 

b949 : 

a5 

65 


Ida 

$65 [ 

facmoh ] 

★ * * 

b94b : 

e9 

00 


sbc 

#$00 


* * * 

b94d : 

85 

65 


sta 

$65 [ 

facmoh ] 

* * * 

b94f : 

60 



rts 




b95 0 : 

a9 

01 


Ida 

#$01 


Addizione dei contenuti di A in OP3 

b9 52 : 

18 



eie 



esguita con controlli di OVERFLOW 

b9 53 : 

65 

66 


ade 

$66 [ 

indice ] 


b9 55 : 

85 

66 


sta 

$66 [ 

ìndice ] 


b957 : 

90 

06 


bcc 

* $b95f 



b9 59 : 

e6 

67 


ine 

$67 [ 

facmo ] 


b9 5b: 

dO 

02 


bne 

* $b95f 



b95d : 

e6 

68 


ine 

$68 ( 

facsgn ] 


b95f : 

60 



rts 




b960 

38 



sec 



Subroutine di sottrazione della 

b961 

a5 

66 


Ida 

$66 [ 

indice ] 

costante 1 da OP3 di locazione 

b963 

e9 

01 


sbc 

#$01 


$66-$67-$68 

b965 

85 

66 


sta 

$66 [ 

indice ] 

★ * ★ 

b967 

a5 

67 


Ida 

$67 [ 

facmo ] 

** * 

b969 

e9 

00 


sbc 

#$00 


* * * 

b96b 

85 

67 


sta 

$67 [ 

facmo ] 

★ * * 

b96d 

a5 

68 


Ida 

$68 [ 

facsgn ] 

** * 

b96f 

e9 

00 


sbc 

#$00 


* * * 

b971 

85 

68 


sta 

$68 [ 

facsgn ] 

** * 

b973 

60 



rts 




b97 4 

bO 

Oc 


bes 

* $b982 


Return se carry set 

b976 

a5 

60 


Ida 

$60 [ 

tenexp ] 

Carica A con OP1 ind LO 

b978 

a4 

61 


ldy 

$61 [ 

lowtr ] 

Carica Y con OPl ind MID 

b97a 

a6 

62 


ldx 

$62 [ 

expsgn ] 

Carica X con OPl ind HI 

b97c 

85 

04 


sta 

$04 . [ 

pc-lo ] 

Imm in ind. di Pag. 0 per PC-LO (A) 

b97e 

84 

03 


sty 

$03 [ 

pc-hi ] 

Imm in ind. di Pag. 0 per PC-HI (Y) 

b98 0 

86 

02 


stx 

$02 [ 

bank ] 

Imm in ind. di Pag. 0 per n.banco(X) 

b982 

60 



rts 




b98 3 

bO 

2a 


bes 

* $b9af 


Esci se errore in par. comando 

b985 

20 

01 

b9 

jsr 

* $b901 


Copia cont di OPl in OP3 

b988 

20 

al 

b7 

jsr 

* $b7a7 


Vai a operando in OPl 

b98b 

bO 

22 


bes 

* Sb9af 


Se operando non val.ido errore 
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b98d : 

a5 

60 


Ida 

$60 

[ tenexp ] 

b98f : 

8d 

b7 

0a 

sta 

$0ab7 


b992 : 

a5 

61 


Ida 

$61 

[ lowtr ] 

b994 : 

8d 

b8 

Oa 

sta 

$0ab8 


b9 9 7 : 

a5 

62 


Ida 

$62 

[ expsgn ] 

b999 : 

8d 

b9 

0a 

sta 

$0ab9 


b99c: 

20 

Oe 

b9 

jsr 

* $b90e 


b99f : 

a5 

60 


Ida 

$60 

[ tenexp ] 

b9al : 

85 

63 


sta 

$63 

1 fac ] 

b9a3 : 

a5 

61 


Ida 

$61 

[ lowtr ] 

b9a5 : 

85 

64 


sta 

$64 

[ rightflag 

b9a7 : 

a5 

62 


Ida 

$62 

[ expsgn ] 

b9a9 : 

85 

65 


sta 

$65 

[ facmoh ] 

b9ab : 

90 

02 


bcc 

* $b9af 


b9ad : 

18 



eie 




b9ae : 

24 





$ 

b9af : 

38 



sec 



b9b0 : 

60 



rts 



ROUTINE DI USCITA CONVERSIONE 

COMANDI 

b9bl : 

20 

a5 

b7 

jsr 

* $b7a5 


b9b4 : 

20 

b9 

b8 

jsr 

* $b8b9 


b9b7 : 

a9 

24 


Ida 

#$24 


b9b9 : 

20 

d2 

ff 

jsr 

* $ffd2 [ 

bsout ] 

b9bc : 

a5 

62 


Ida 

$62 [ 

expsgn ] 

b9be : 

f0 

07 


beq 

* . $b9c7 


b9c0 : 

20 

d2 

b8 

jsr 

* $b8d2 


b9c3 : 

8a 



txa 



b9c4 : 

20 

d2 

ff 

jsr 

* $ffd2 [ 

bsout ] 

b9c7 : 

a5 

60 


Ida 

$60 [ 

tenexp ] 

b9c9 : 

a6 

61 


ldx 

$61 [ 

lowtr ] 

b9cb : 

20 

9f 

b8 

jsr 

* $b89f 


b9ce : 

20 

b9 

b8 

jsr 

* $b8b9 


b9dl: 

a9 

2b 


Ida 

#$2b 


b9d3 : 

20 

d2 

ff 

jsr 

* $ffd2 [ 

bsout ] 

b9d6 : 

20 

07 

ba 

jsr 

* $ba07 


b9d9 : 

a9 

00 


Ida 

#$00 


b9db : 

a2 

08 


ldx 

#$08 


b9dd : 

aO 

03 


ldy 

#$03 


b9df : 

20 

5d 

ba 

jsr 

* $ba5d 


b9e2 : 

20 

b9 

b8 

jsr 

* $b8b9 


b9e5 : 

a9 

26 


Ida 

#$26 


b9e7 : 

20 

d2 

ff 

jsr 

* $ffd2 [ 

bsout ] 

b9ea : 

a9 

00 


Ida 

#$00 


b9ec: 

a2 

08 


ldx 

#$08 


b9ee : 

aO 

02 


ldy 

#$02 


b9f 0 : 

20 

47 

ba 

jsr 

* $ba47 


b9f 3: 

20 

b9 

b8 

jsr 

* $b8b9 


b9f6 : 

a9 

25 


Ida 

#$25 


b9f 8 : 

20 

d2 

ff 

jsr 

* $ffd2 [ 

bsout ] 

b9fb: 

a9 

00 


Ida 

#$00 


b9f d : 

a2 

18 


ldx 

#$18 


b9ff : 

aO 

00 


ldy 

#$00 


baOl : 

20 

47 

ba 

jsr 

* $ba47 



Copia i contenuti dell' operando 
di 3 bytes (0P1) nelle seguenti locaz 
di memoria $0AB9 - $0AB8 -$0AB7 

★ * ★ 

★ * * 

★ * * 

Diff. fra 0P1- OP3 in 0P1 


Copia i contenuti dei 3 bytes dell' 
operando 0P1 nell ' operando 0P3 
Se da questa operazione risulta che 
]0P1 maggiore di 0P3 esegui uscita per 
errore 
*** 

Esegui un clear del Carry 


Routine di uscita per rii errore 


Fissa il carry 


Conversione valore in 0P1 
Uscita simboli Cr, Esc-Q, Space 
Carica A con <$> 

Vai a BSOUT 

Carica HI del vai.dì conversione 
Se $00 cancella gli altri 2 gruppi 
A in 2 Bytes ASCII: HI=A,LO=X 
Metti in A ASCII per nibble LO 
Vai a BSOUT 

Carica LO dei 3 bytes di convers. 

Carica valore centrale 

Uscita dei valori come car. ASCII 

di Cr, Esc-Q, Space 

Metti + in A 

Vai a BSOUT 

Converti OP1 in decimale 
Cancella segnalatore 
Uscita di 8 caratteri 

Y contiene il digit di output 
Uscita di AA0-AA3 come n. decimale 
Uscita deicaratteri c.s. 

Metti & in A 
Vai a Bsout 
Cancella segnalatore 
Uscita di 8 caratteri 

Y contiene i 3 bit di output 
Uscita di AA0-AA3 come ottale 
Uscita di Cr, Esc-Q, Space 
Metti % in A 

Vai a BSOUT 
Cancella segnalatore 
Uscita di 18 caratteri 
★ * ★ 

* ★ * 
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ba04: 4c 8b bO jmp * $b08b 
ROUTINE DI CONVERSIONE 


ba07 : 

20 

01 

b9 

jsr 

* $b901 


baOa : 

a9 

00 


Ida 

#$00 


baOc : 

a2 

07 


ldx 

#$07 


baOe : 

9d 

a0 

0a 

sta 

$0aa0,x 


ball: 

ca 



dex 



bai 2 : 

10 

fa 


bpl 

* $baOe 


bai 4 : 

ee 

a7 

Oa 

ine 

$0aa7 


bai 7: 

aO 

17 


ldy 

#$17 


bai9 : 

08 



php 



baia : 

78 



sei 



balb : 

f 8 



sed 



baie: 

46 

68 


1 sr 

$68 

[ facsgn ] 

baie : 

66 

67 


ror 

$67 

[ facmo ] 

ba2 0 : 

66 

66 


ror 

$66 

[ indice ] 

ba2 2 : 

90 

Of 


bcc 

* $ba33 


ba24 : 

18 



eie 



ba25 : 

a2 

03 


ldx 

#$03 


ba2 7 : 

bd 

a4 

Oa 

Ida 

$0aa4,x 


ba2a : 

7d 

a0 

Oa 

adc 

$0aa0,x 


ba2d : 

9d 

aO 

Oa 

sta 

$0aa0,x 


ba30 : 

ca 



dex 



ba31: 

10 

f 4 


bpl 

* $ba27 


ba3 3 : 

18 



eie 



ba34 : 

a2 

03 


ldx 

#$03 


ba36 : 

bd 

a4 

Oa 

Ida 

$0aa4,x 


ba3 9 : 

7d 

a4 

Oa 

adc 

$0aa4,x 


ba3c : 

9d 

a 4 

Oa 

sta 

$0aa4,x 


ba3f : 

ca 



dex 



ba40 : 

10 

f 4 


bpl 

* $ba36 


ba42 : 

88 



dey 



ba4 3 : 

10 

d7 


bpl 

* $balc 


ba45 : 

28 



plp 



ba46 : 

60 



rts 



ROOTINEDI CONVERSIONE 


ba4 7 

48 



pha 



ba48 

a5 

60 


Ida 

$60 [ 

tenexp ] 

ba4a 

8d 

a2 

Oa 

sta 

$0aa2 


ba4d 

a5 

61 


Ida 

$61 [ 

lowtr ] 

ba4f 

8d 

al 

Oa 

sta 

$0aal 


ba52 

a5 

62 


Ida 

$62 [ 

expsgn ) 

ba54 

8d 

aO 

Oa 

sta 

$0aa0 


ba57 

a9 

00 


Ida 

#$00 


ba59 

8d 

a3 

Oa 

sta 

$0aa3 


ba5c 

68 



pia 



ba5d 

8d 

b4 

Oa 

sta 

$0ab4 


ba6 0 

8c 

b6 

Oa 

sty 

$0ab6 


ba6 3 

ac 

b6 

Oa 

ldy 

$0ab6 


ba66 

a9 

00 


Ida 

#$00 


ba6 8 

0e 

a3 

Oa 

asl 

$0aa3 


ba6b 

2e 

a2 

Oa 

rol 

$0aa2 


ba6e 

2e 

al 

Oa 

rol 

$0aal 


ba71 

2e 

aO 

Oa 

rol 

$0aa0 


ba7 4 

2a 



rol 

a 


ba7 5 

88 



dey 




Vai a ciclo di attesa 


Copia contenuti di 0P1 in OP3 
Esegui un Clear AA0-AA3 per i 
numeri decimali 

Esegui un Clear AA4-AA7 usati come 
contatori per conversione decim. 
Inizializza una pos. contatore 
Incrementalo di 1 

Ciclo di controllo per passi convers. 
Immagazzina status interrupt e dee. 
Disabilita tutti gli Interrupt 
Abilita il modo decimale 
Dividi per 2 il valore di 3 Byte 
presente in 0P1 
*** 

Se nessun resto div.salta add. decim 
Esegui un Clear di carry per somma 
Se c' e' un resto della divisione 
somma i contenuti del contatore 
nella memoria di output 
* * * 

* * * 

** * 

Esegui un Clear di Carry per somma dee 
Moltiplica il contenuto di 4 bytes 
del contatore per 2 

Controllo che il contenuto del contat. 
sia una potenza di 2 

* * * 

*** 

Decrementa cont. di 1 
Controllo esec. tutti i passi 

* * * * 


A su Stack 
Copia 0P1 in OPA 
* * * 

Continua la copia 
*** 

*★* 

* * * 

Carica A cori 00 

Immetti in OPA 

Ripistina cont. A da Stack 

Fissa flag per 0 

Immag. n. bit 

Numero bit in y 

Iniz. A 

Esegui uno spostamento verso sinistra 
del contenuto operando 4 byte 
un bit per volta 

*** 

* * * 

Decrem. di 1 bit counter 





IX Sistema Operativo del Commodore 128 


Pag ■ 


30 


ba76 : 

10 

f0' 


bpl 

* $ba68 


ba7 8 : 

a8 



tay 



ba7 9 : 

d0 

09 


bne 

* $ba84 


ba7b : 

e0 

01 


cpx 

#$01 


ba7d : 

f0 

05 


beq 

* $ba84 


ba7f : 

ac 

b4 

0a 

ldy 

$0ab4 


ba82 : 

fO 

08 


beq 

* $ba8c 


ba84 : 

ee 

b4 

Oa 

ine 

$0ab4 


ba87 : 

09 

30 


ora 

#$30 


ba89: 

20 

d2 

ff 

jsr 

* $ffd2 

[bsout ] 

ba8c: 

ca 



dex 



ba8d : 

d0 

d4 


bne 

* $ba63 


ba8f : 

60 



rts 



COMANDO MONITOR 

@ 



ba90 : 

dO 

03 


bne 

* $ba95 


ba92 : 

a2 

08 


ldx 

#$08 


ba9 4 : 

2c 



byte 

$2c 


ba95 : 

a6 

60 


ldx 

* $60 


ba97 : 

eO 

04 


cpx 

#$04 


ba99 : 

90 

65 


bcc 

* $bb00 


ba9b : 

e0 

lf 


cpx 

#$lf 


ba9d : 

b0 

61 


bes 

* $bb00 


ba9f : 

86 

60 


stx 

$60 [ 

tenexp ] 

baal : 

a9 

00 


Ida 

#$00 


baa3 : 

85 

62 


sta 

$62 [ 

expsgn ] 

baa5 : 

85 

b7 


sta 

$b7 [ 

fnl.en ] 

baa7 : 

aa 



tax 



baa8 : 

20 

68 

f f 

jsr 

* $ff68 

[setbnk] 

baab: 

20 

e9 

b8 

jsr 

* $b8e9 


baae : 

c6 

7a 


dee 

$7a [ 

dsdec ] 

babO: 

c9 

24 


emp 

#$24 


bab2 : 

f0 

4f 


beq 

* $bb0 3 


bab4 : 

a9 

00 


Ida 

#$00 


bab6 : 

a6 

60 


ldx 

$60 [ 

tenexp ] 

bab8 : 

aO 

Of 


ldy 

#$0f 


baba : 

20 

ba 

ff 

jsr 

* $ffba 

[setlfs ] 

babd : 

20 

cO 

ff 

jsr 

* $ffcO 

[open] 

bacO : 

bO 

32 


bes 

* $baf4 


bac2 : 

a2 

00 


ldx 

#$00 


bac4 : 

20 

c9 

ff 

jsr 

* $ffc9 

[ckout ] 

bac7 : 

bO 

2b 


bes 

* $baf 4 


bac9 : 

a6 

la 


ldx 

$7a 

[dsdec] 

bacb: 

e6 

la 


ine 

$7a 

[dsdec] 

bacd : 

bd 

00 

02 

Ida 

$0200,x 


badO: 

f 0 

05 


beq 

* $bad7 


bad2 : 

20 

d2 

ff 

jsr 

* $ffd2 

[bsout ] 

bad5 : 

90 

f 2 


bcc 

* $bac9 


bad7 : 

20 

cc 

ff 

jsr 

* $ffcc 

[clrch] 

bada : 

20 

b4 

b8 

jsr 

* $b8b4 


badd : 

a2 

00 


ldx 

#$00 


badf : 

20 

c6 

ff 

jsr 

* $ffc6 

[ chkin ] 

bae2 : 

bO 

10 


bes 

* $baf4 


bae4 : 

20 

cf 

ff 

jsr 

* $ffcf 

[ basin ] 

bae7 : 

20 

d2 

ff 

jsr 

* $ffd2 

[ bsout j 

baea : 

c9 

Od 


emp 

#$0d 


baec : 

f0 

06 


beq 

* $baf4 


baee : 

a5 

90 


Ida 

$90 

[ status ] 

baf 0 : 

29 

bf 


and 

#$bf 



Esegui il ciclo fino a trasf 
Trasf. risult. in Y 
Se diverso da 0 output 
Controllo per posizione 
Se e' prima pos. uscita bit 
Carica flag di zero 
Controlla che sia attivo 
Disabilita bit di zero 
Metti SPACE in A 
Vai a BSOUT 
Ciclo per n. di bit 
Contr. se diverso da zero 


Contr.identif. ind.perif 
Fissa lo standard a 8 
Vai a $BA97 

N. di periferica da OP1 
Contr. se n. perif min. di 4 
Vis. ? vai ciclo att.input 
Contr.n.perif magg. di 30 
Come sopra 

Immag. n.perif in OP1 
.Carica n. banco 
Immag. in OP1 byte banco 
Metti a 0 lungheza nome file 
Metti a 0 A e X 
Vai a SETBNK • 

Lettura di 1 car.da buffer di input 
Punt. del buffer input -1 e visual. 
Controlla se car. e' $ 

Se pos. uscita directory 
Metti in A n. di file logico 
Metti in X n.perif da OP1 
Fissa indirizzo secondario 
Vai a SETLFS 
Vaia OPEN 

Uscita per errore di OPEN 
Fissa uscita file logico 
Vai a CKOUT 
Se rii. errore esci 
Fissa punt. visualizz. 

Vai a success, carattere 
Lettura car. da buffer di input 
Chiudi canale di comando 
Vai a BSOUT 

Contr. e uscita pross. caratt. 

Vai a CLRCH 

Rit. vcarr. e clear su resto linea 

Fissa file logico in input 

Vaia routine CHKIN 

Se rilev. errore esci 

Vai a BASIN 

Vai a BSOUT 

Controllo uscita CR 

Se pos. vai a CLRCH e esci 

Carica lo status in A 

Esegui Mask out del bit 6 
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baf 2 

fO 

fO 


beq 

* $bae4 


baf 4 

20 

cc 

ff 

jsr 

* $ffcc [ 

clrch ] 

baf 7 

a9 

00 


Ida 

#$00 


baf 9 

38 



sec 



baf a 

20 

c3 

ff 

jsr 

* $ffc3 [ 

dose ] 

baf d 

4c 

8b 

bO 

jmp 

* $b08b 


bbOO 

4c 

bc 

bO 

jmp 

* $b0bc 


bbO 3 

aO 

ff 


ldy 

#$ff 


bb05 

a6 

7a 


ldx 

$7a | 

dsdec ] 

bb0 7 

ca 



dex 



bb08 

c8 



iny 



bb0 9 

e8 



inx 



bbOa 

bd 

00 

02 

Ida 

$0200,x 


bbOd 

dO 

f 9 


bne 

* $bb08 


bbOf 

98 



tya 



bblO 

a6 

7a 


ldx 

$7a | 

| dsdec ] 

bbl 2 

aO 

02 


ldy 

#$02 


bbl4 

20 

bd 

ff 

jsr 

* $ffbd | 

; setnam ] 

bbl 7 

a9 

00 


Ida 

#$00 


bbl 9 

a6 

60 


ldx 

$60 • | 

^ tenexp ] 

bblb 

aO 

60 


ldy 

#$60 


bbld 

20 

ba 

ff 

jsr 

* $ffba | 

: setlfs ] 

bb20 

20 

cO 

f f 

jsr 

* $ffc0 [ 

! open ] 

bb2 3 

bO 

cf 


bcs 

* $baf4 


bb2 5 

a2 

00 


ldx 

#$00 


bb27 

20 

c6 

ff 

jsr 

* $ffc6 | 

[ chkin ] 

bb2a 

20 

b4 

b8 

jsr 

* $b8b4 


bb2d 

aO 

03 


ldy 

#$03 


bb2f 

84 

63 


sty 

$63 | 

! f ac ] 

bb31 

20 

cf 

f f 

jsr 

* $f fcf | 

[ basin ] 

bb34 

85 

60 


sta 

$60 | 

! tenexp ] 

bb36 

a5 

90 


Ida 

$90 

[ status ] 

bb38 

dO 

ba 


bne 

* $baf4 


bb3a 

20 

cf 

ff 

jsr 

* $ffcf 

[ basin ] 

bb3d 

85 

61 


sta 

$61 | 

[ Iowt r ] 

bb3f 

a5 

90 


Ida 

$90 

[ status ] 

bb41 

dO 

bl 


bne 

* $baf 4 


bb43 

c6 

63 


dee 

$63 

[ fac ] 

bb45 

dO 

ea 


bne 

* $bb31 


bb4 7 

20 

07 

ba 

jsr 

* $ba0 7 


bb4a 

a9 

00 


Ida 

#$00 


bb4c 

a2 

08 


ldx 

#$08 


bb4e 

aO 

03 


ldy 

#$03 


bb50 

20 

5d 

ba 

jsr 

* $ba5d 


bb5 3 

a9 

20 


Ida 

#$20 


bb55 

20 

d2 

ff 

jsr 

* $ffd2 

[ bsout ] 

bb58 

20 

cf 

ff 

jsr 

* $ffcf 

[ basin ] 

bb5b 

fO 

09 


beq 

* $bb6 6 


bb5d 

a6 

90 


ldx 

$90 

[ status ] 

bb5f 

dO 

93 


bne 

* $baf4 


bb61 

20 

d2 

f f 

jsr 

* $ffd2 

[ bsout ] 

bb6 4 

90 

f 2 


bcc 

* $bb58 


bb6 6 

20 

b4 

b8 

jsr 

* $b8b4 


bb69 

20 

el 

ff 

jsr 

* $ffel 

[ stop ) 

bb6c 

fO 

86 


beq 

* $baf 4 


bb6e 

aO 

02 


ldy 

#$02 


bb7 0 

ao 

bd 


bne 

* $bb2f 



Controllo se errore 
Vai a CLRCH 
Chiudi file logico 
Fissa il carry per CLOSE 
Vai a CLOSE 

Vai a ciclo attesa ingresso 
Visualizza ? e ciclo di attesa input 
Fissa lunghezza cont.nome file 
Vis. punt.a buffer di input e fissalo 
al carattere precedente 
Incrementa contatore nome file 
Puntatore al prossimo carattere 
Lettura carattere 

Se non e' un fine comando leggi ancor 
Metti in A lungh. nome file 
Metti in X ind.nome file (LO) 

Metti in Y ind.nome file (HI) 

Vai a SETNAM 

Metti in A file logico 

N. perif. in X da 0P1 (LO) 

Indirizzo secondario in Y 
Vai a SETLFS 
Vai a OPEN 

Se errore di CPEN esci 

Fissa per input file logico 

Vai a rout. CHKIN 

Ritorno carrello e clear resto 

Esegui, la lettura dei primi 6 bytes 

della directory 

Vai a rout. BASIN 

Immag. car. directory in 0P1 (LO) 

Metti status in A 

Controllo se errore. Esci 

Vai a rout. BASIN 

Immag. car. directory in 0P1 (HI) 

Poni status in A 
Se errore esci 

Decrementa di 1 bytes directory 
Se = a 0 leggi altri bytes 
Prepara e visualizza, contenuti di 
0P1 in forma decimale 
Visualizza directory sia come ingre. 
che come n. di caratteri liberi 
* * * 

Carica A con SPACE 

Vai a BSOUT 

Vai a BASIN 

Segnale di $0 

Metti status in X 

Controllo se errore. Esci 

Vai a BSOUT 

Uscita succ. carattere 

Esegui un ritorno carrello 

Vai a STOP 

Se STOP vai a uscita 

Leggi contatore per bytes direc 

Salto incondiz. a lettura dir. 
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NOTE A GROPPO B 


Al termine della parte relativa al monitor 
rimangono alcune centinaia di caratteri 
liberi che al momento attuale non risultano 
utilizzati. 

Pertanto da BB72 a BFFF tutto ciò' che appare 
non e ' da prendere in considerazione per un 
utilizzo pratico. 
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TAVOLA DEI SALTI PER LE ROUTINES DELL' EDITOR 


cOOO : 

4c 

7b 

cO 

jmp 

★ 

$c07b 

cOO 3 : 

4c 

34 

cc 

jmp 

★ 

$cc34 

c006 : 

4c 

34 

c2 

jmp 

* 

$c234 

c009 : 

4c 

9b 

c2 

jmp 

* 

$c29b 

cOOc : 

4c 

2d 

c7 

jmp 

* 

$c72d 

cOOf : 

4c 

5b 

CC 

jmp 

* 

$cc5b 

c012 : 

4c 

5d 

c5 

jmp 

* 

$c55d 

cO 15 : 

4c 

51 

c6 

jmp 

★ 

Sc651 

c018 : 

4c 

6a 

cc 

jmp 

* 

Scc6a 

cOlb: 

4c 

57 

cd 

jmp 

* 

$cd57 

cOle: 

4c 

cl 

c9 

jmp 

★ 

$c9cl 

c021 : 

4c 

a2 

cc 

jmp 

* 

$cca2 

c024 : 

4c 

94 

cl 

jmp 

* 

$cl94 

c027 : 

4c 

Oc 

ce 

jmp 

* 

$ceOc 

c02a : 

4c 

2e 

cd 

jmp 

* 

$cd2e 

c02d : 

4c 

lb 

ca 

jmp 

* 

$calb 

c030 : 

ff 

ff 

ff 





CINT 

DISPLAY 

LP2 

LOOP 

PRINT 

SCRORG 

KEY 

REPEAT 

PLOT 

CURSOR 

ESCAPE 

PFKEY 

IRQ a editor di IRQ 

INIT 80 

SWAPPER 

WINDOW 


Liberi per future espansioni 


LINEE DI PARTENZA (BYTES LO) 

c033: 00 28 50 78 aO c8 fO 18 
c03b: 40 68 90 b8 eO 08 30 58 
c043: 80 a8 dO f8 20 48 70 98 
c04b: cO 


LINEE DI PARTENZA (BYTES HI) 

c04c: 04 04 04 04 04 04 04 05 
c054: 05 05 05 05 05 06 06 06 
c05c: 06 06 06 06 07 07 07 07 
c064: 07 


VETTORI DI TASTIERA ED USCITA CARATTERI 


c065 : 

b9 

cl 

($c7b9) 

Carattere con CTRL 

c067 : 

05 

c8 

($c805 ) 

Carattere con SHIFT 

c069 : 

cl 

c9 

($c9cl) 

Carattere con ESC 

c06b : 

el 

c5 

($c5el) 

Scansione tastiera 

c06d. : 

ad 

c6 

(Sc6ad) 

Immagazzinamento tasto premuto 


PUNTATORI ALLA 

TAVOLA DI DECODIFICA TASTIERA 

c06f : 

80 fa 

($fa80) 

c071 : 

d9 fa 

($fad9) 

c07 3 : 

32 fb 

{$fb32) 

c07 5 : 

8b fb 

($fb8b) 

c077 : 

80 fa 

($fa80 ) 

c079 : 

e4 fb 

(Sfbe4) 


ROUTINE CINT: INIZIALIZZA EDITOR E SCHERMO 
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cO 7b 

a9 

03 


Ida 

#$03 

c07d 

Od 

00 

dd 

ora 

* $dd00 

c080 

8d 

00 

dd 

sta 

* $dd00 

c083 

a9 

fb 


Ida 

#$fb 

c08 5 

25 

01 


and 

$01 [ r6510 ] 

c087 

09 

02 


ora 

#$02 

c089 

85 

01 


sta 

$01 [ r6510 ] 

c08b 

20 

cc 

ff 

jsr 

* $ffcc [ clrch ] 

c08e 

a9 

00 


Ida 

#$00 

c090 

8d 

18 

d4 

sta 

* $d418 

c093 

85 

d8 


sta 

$d8 [ graphm 

c095 

85 

d7 


sta 

$d7 [ mode ] 

c097 

85 

dO 


sta 

$d0 [ ndx ] 

c099 

85 

di 


sta 

$dl [ kyndx ] 

c09b 

85 

d6 


sta 

$d6 [ crsm ] 

c09d 

8d 

21 

Oa 

sta 

$0a21 

cOaO 

8d 

26 

Oa 

sta 

$0a26 

c0a3 

85 

d9 


sta 

$d9 [ charen 

c0a5 

8d 

2e 

Oa 

sta 

$0a2e 

c0a8 

a9 

14 


Ida 

#$14 

cOaa 

8d 

2c 

Oa 

sta 

$0a2c 

cOad 

a9 

78 


Ida 

#$78 

cOaf 

8d 

2d 

Oa 

sta 

$0a2d 

c0b2 

a9 

08 


Ida 

#$08 

c0b4 

8d 

2 f 

Oa 

sta 

$ 0a2 f 

c0b7 

ad 

4c 

cO 

Ida 

* $c04c 

cOba 

8d 

3b 

Oa 

sta 

$0a3b 

cObd 

a9 

Oa 


Ida 

#$0a 

cObf 

8d 

20 

Oa 

sta 

$ 0a2 0 

c0c2 

8d 

28 

Oa 

sta 

$0a28 

c0c5 

8d 

27 

Oa 

sta 

$0a2 7 

c0c8 

8d 

24 

Oa 

sta 

$0a24 

cOcb 

a9 

04 


Ida 

#$04 

cOcd 

8d 

23 

Oa 

sta 

$0a2 3 

cOdO 

20 

83 

c9 

jsr 

* $c983 

c0d3 

8d 

22 

Oa 

sta 

$0a22 

c0d6 

Od 

05 

d5 

ora 

* $d505 

c0d9 

8d 

05 

d5 

sta 

* $d505 

cOdc 

a9 

60 


Ida 

#$60 

cOde 

8d 

2b 

Oa 

sta 

$0a2b 

cOel 

a9 

dO 


Ida 

#$d0 

c0e3 

8d 

34 

Oa 

sta 

$0a34 

c0e6 

a2 

la 


ldx 

#$la 

c0e8 

bd 

74 

ce 

Ida 

* $ce74,x 

cOeb 

95 

eO 


sta 

$e0,x ( pnt ] 

cOed 

bd 

8e 

ce 

Ida 

* $ce8e,x 

cOf 0 

9d 

40 

Oa 

sta 

$0a40,x 

cOf 3 

ca 



dex 


cOf 4 

10 

f 2 


bpl 

* $c0e8 

cOf 6 

a2 

09 


ldx 

#$09 

cOf 8 

bd 

65 

cO 

Ida 

* $c065,x 

cOfb 

9d 

34 

03 

sta 

$0334,x 

.cOfe 

ca 



dex 


cOf f 

10 

f 7 


bpl 

* $c0f8 

clOl 

2c 

04 

Oa 

bit 

$ OaO 4 

cl 04 

70 

le 


bvs 

* $cl24 

cl06 

a2 

Ob 


ldx 

#$0b 

cl 08 

bd 

6f 

cO 

Ida 

* $c06f,x 

clOb 

9d 

3e 

03 

sta 

$033e,x 


Carica i 2 bits di HI della'base 
Fissa lo schermo LO 
Immagazzina ancora 

Esegui un CLEAR del bit 2 del registro 
di direzione dati, quindi metti a 0 il 
bit 1 dello stesso registro ed esegui 
ancora il salvataggio 

Vai CLRCH:esegui il reset su cana. I/O 
Esegui reset di filtro, volume ed ing. 
nella tavola 

Fissa flag di schermo in modo TESTO 
Fissa flag del modo 40/80 col. in 40 
Esegui CLEAR sulla coda buffer tast. 
Esegui CLEAR su flag tasto funz. 

Reset su flag tastiera input 

Reset su flag PAUSA 

Reset su flag cursore 

Fissa punt. di car. in RAM/ROM 

Fissa ind. base schermo (testo RAM) 

Iniz. valore per punt base 

Imm. punt.base testo schermo/car. 

Iniz. vai. base bit-map 
Iniz. base bit-map 
Iniz. vai RAM 
Iniz. base RAM 

Carica vai. di iniziai. ($04) 

Iniz. punt. sistema PAL 

Car.vai.iniz.amp.buffer tastiera 

Iniz.flag per contr.buffer tastiera 

Imm. puntatore per flash ursore 

Flag per modo flash del cursore 

Flag per ritardo funz.REPEAT tastiera 

Valore part. per cont. vel. 

Flag: vel. di ripet. 

Iniz. pos. tabulatore 

Flag per punt. repeat di tastiera 

Fissa bit di controllo ser.(modo FAST 

) nel MCR del Memory Man. Unit 

Valore d' inizio per cursore 

Flag per modo cursore 

Val. di inizaliz. per il sitema di 

puntatori rei. movim. linea 

Cont.di ciclo per iniz. Pag 0 

Copia ROM di schermo modo 40 colonne 

Copia vai. inizio in pag. 0 

Copia ROM di schermo modo 80 colonne 

Copia iin RAM i valori iniziali 

Decrementa di 1 cont. di ciclo 

Ciclo x contri, tutti valori sia.tra. 

Controllo bit 6 flag di inizializz. 

Se bit fissato salta 

Cont. di ciclo per iniz. pag 3 

Decrem cont. ciclo di 1 

Cont. ciclo tutti i vai.trasferiti 

Controlla bit 6 del flag inizializ 

Se bit fissato vai oltre 

Cont. ciclo iniz. pag.3 

Copia ROM decod. tastiera 

Immag. vett. area RAM 
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clOe: 

ca 



dex 




Decr. di 1 cont. di ciclo 

clOf : 

10 

f 7 


bpl 

* Sci08 



Ciclo trasf. tutti i valori 

olii: 

a2 

4c 


ldx 

# $ 4c 



Ciclo contr.iniz. tasti funz. 

cl 13 : 

bd 

a8 

ce 

Ida 

* $cea8, 

X 


Copia la ROM della lunghezza tasto 

cl 16 : 

9d 

00 

10 

sta 

$1000,x 



funzione eimmag. in RAM 

cl 19 : 

ca 



dex 




Decr. cont.ciclo di 1 

ella: 

10 

f 7 


bpl 

* Sci13 



Ciclo contr. trasf. tutti i valori 

cl le : 

a9 

40 


Ida 

#$40 



Metti il bit 6 in pos. di ON e con 

elle: 

Od 

04 

Oa 

ora 

$0a04 



con flag inizializz. 

cl 21 : 

8d 

04 

Oa 

sta 

SOaO 4 



Metti risul. in flag di iniziai. 

cl 24 : 

20 

2e 

cd 

jsr 

* $cd2e 



Vai al modo 40/80 colonne 

cl 27 : 

20 

83 

c9 

jsr 

* Sc9 8 3 



Reset dei tabulatori 

cl 2a : 

20 

24 

ca 

jsr 

* $ca24 



Intero schermo come finestra 

cl 2d : 

20 

42 

cl 

jsr 

* Sci42 



CLR/HOME 

cl30 : 

20 

2e ■ 

cd 

jsr 

* $cd2e 



Vedi sopra 

cl 3 3 : 

20 

24 

ca 

jsr 

* $ca24 



Vedi sopra 

cl 36 : 

20 

42 

cl 

jsr 

* Sci 4 2 



Vedi sopra 

cl 3 9 : 

2c 

05 

d5 

bit 

* Sd505 



Contr. se modo 40/80 colonne 

cl3c: 

30 

03 


bmi 

* Sci41 



Salta se siamo in 80 coolonne 

cl 3e : 

20 

2e 

cd 

jsr 

* $cd2e 



Vai al modo 40/80 colonne 

cl 4 1 : 

60 



rts 





ROUTINE DI CLEAR WINDOW 




cl 42 : 

20 

50 

cl 

jsr 

* Sci50 



Cursore in posizione HOME 

cl 4 5 : 

20 

5e 

cl 

jsr 

* Sci5e 



Calcola ind. di inizio linea X 

cl 48 : 

20 

a5 

c4 

jsr 

* Sc4a5 



Esegui unclear su linea X 

cl 4b : 

e4 

e4 


cpx 

$e4 

[ 

sebot ] 

Confronto bordo inferiore finestra 

cl 4d : 

e8 



inx 




Incrementa punt. di linea 

cl 4e : 

90 

f 5 


bcc 

* $cl45 



se bordo inf. non rintracciato 

ROUTINE DI CURSOR HOME 




cl 50 

a6 

e5 


ldx 

$e5 

( 

sctop ] 

Imm. bordo sup. in X 

cl52 

86 

eb 


stx 

Seb 

l 

tblx ] 

Nota att. linea del cursore 

cl 54 

86 

e8 


stx 

$e8 

[ 

lsxp ] 

Immag. come linea input iniziale 

cl56 

a4 

e6 


ldy 

Se6 

[ 

self j 

Carica in Y bordo sin. finestra 

cl 58 

84 

ec 


sty 

$ec 

f 

pntr ] 

Memor. colonna attt. cursore 

cl 5a 

84 

e9 


sty 

$e9 

[ 

lstp ) 

come colonna iniziale 

cl 5c 

a6 

eb 


ldx 

Seb 

[ 

tblx ] 

Carica in X att. linea cursore 

cl 5e 

bd 

33 

cO 

Ida 

* $c033, 

- X 


Carica in A bit LO linea di part. 

cl61 

24 

d7 


bit 

$d7 

[ 

mode ] 

Controllo modo 40/80 col. 

cl63 

10 

01 


bpl 

* Scl66 



Salta se siamo in 40 col. 

cl 65 

0a 



asl 

a 



Altrimenti esegui un ASL di A 

cl 66 

85 

e0 


sta 

SeO 

[ 

pnt ] 

Imm. byte LO 

cl 68 

bd 

4c 

cO 

Ida 

* $c04c, 

rX 


Metti in A byte HI linea iniziale 

cl 6b 

29 

03 


and 

#$03 



Mask out bits 2-7 

cl6d 

24 

d7 


bit 

$d7 

! 

mode ) 

Controllo modo 40/80 col 

cl6f 

10 

06 


bpl 

* Sci77 



Se siamo a 40 col. salta 

cl 71 

2a 



rol 

a 



Spost a sin carry per byte HI 

cl 7 2 

Od 

2e 

Oa 

ora 

$0a2e 



Aggiungo q.s. aind. iniz. video 

cl 75 

90 

03 


bcc 

* $cl7a 



Esegui un salto a sub. SCI7A 

cl 77 

Od 

3b 

Oa 

ora 

$0a3b 



Agg. a ind. video 40 colonne 

cl 7a 

85 

el 


sta 

Sei 

[ 

pnt+ 1 ] 

Immag. in A byte HI 

cl7c 

a5 

eO 


Ida 

SeO 

1 

pnt ] 

Byte LO attuale linea di schermo 

cl 7e 

85 

e2 


sta 

$e2 

l 

user ] 

messo in A come ind. assegn 

cl 80 

a5 

el 


Ida 

Sei 

[ 

pnt+ 1 ] 

Immag. in A byte HI 

cl 82 

24 

d7 


bit 

Sd7 

[ 

mode ] 

Contr per modo 40/80 col. 

cl84 

10 

07 


bpl 

* Sci8d 



E' attivo modo 40 colonne 

cl 86 

29 

07 


and 

#$07 



Mask-out bits 2-7 
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cl 88 : 

Od 

2f Oa 

ora 

$0a2f 


cl8b: 

dO 

04 

bne 

* $cl91 


cl 8d : 

29 

03 

and 

#$03 


cl 8 f : 

09 

d8 

ora 

#$d8 


cl91 : 

05 

e3 

sta 

$e3 

[ user+ 1 

cl 93 : 

60 


rts 




ROUTINE DI IRQ 




cl 94 

38 



sec 



cl 95 

ad 

19 

dO 

Ida 

* $d019 


cl 98 

29 

01 


and 

#$01 


cl 9a 

fO 

07 


beq 

* $cla3 


cl 9c 

8d 

19 

dO 

sta 

* $d019 


cl9f 

a5 

d8 


Ida 

$d8 [ 

graphm ] 

dal 

c9 

ff 


emp 

#$ff 


cla3 

f0 

6 f 


beq 

* $c214 


cla5 

2c 

11 

dO 

bit 

* $d011 


cla8 

30 

04 


bmi 

* $clae 


claa 

29 

40 


and 

#$40 


ciac 

dO 

31 


bne 

* $cldf 


clae 

38 



sec 



ciaf 

a5 

d8 


Ida 

$d8 | 

graphm ] 

cibi 

f 0. 

2c 


beq 

* $cldf 


clb3 

24 

d8 


bit 

$d8 | 

graphm ] 

clb5 

50 

06 


bvc 

* $clbd 


clb7 

ad 

34 

0a 

Ida 

$0a34 


ciba 

8d 

12 

d0 

sta 

* $d012 


clbd 

a5 

01 


Ida 

$01 | 

' r6510 ] 

clbf 

29 

fd 


and 

#$f d 


elei 

09 

04 


ora 

#$04 


clc3 

48 



pha 



clc4 

ad 

2d 

0a 

Ida 

$0a2d 


clc7 

48 



pha 



clc8 

ad 

11 

d0 

Ida 

* $d011 


clcb 

29 

7 f 


and 

#$7f 


clcd 

09 

20 


ora 

#$20 


clcf 

a8 



tay 



cldO 

ad 

16 

dO 

Ida 

* $d016 


cld3 

24 

d8 


bit 

$d8 

[ graphm ] 

cld5 

30 

03 


bmi 

* $clda 


cld7 

29 

ef 


and 

#$ef 


cld9 

2c 

09 

10 

bit 

$1009 


cldc 

aa 



tax 



cldd 

d0 

28 


bne 

* $c207 


MODO 

TESTO 





cldf 

a9 

ff 


Ida 

#$ff 


elei 

8d 

12 

dO 

sta 

* $d012 


cle4 

a5 

01 


Ida 

$01 

[ r6510 ] 

cle6 

09 

02 


ora 

#$02 


cle8 

29 

fb 


and 

#$f b 


elea 

05 

d9 


ora 

$d9 ! 

[ charen ] 

elee 

48 



pha 



cled 

ad 

2c 

0a 

Ida 

$ 0a2c 


cl f 0 

48 



pha 



clfl 

ad 

ii 

d0 

Ida 

* $d011 


cl f 4 

29 

5f 


and 

#$5f 



Assegna a RAM base 
Se diverso esegui un salto 
Mask-out bits 2-7 
Agg. base colore RAM 
Imm. valori byte HI 


Fissa il flag di carry come punt. 
Carica IRR da Vie 
Controlla bit di interrupt RL 
Se settaggio non eseguito vai oltre 
Esegui un clear del reg. 

Controllo x modo testo o graf. 

Se e' stato abilitato lo schermo graf 
vai alla rout. $c214 
Controlla reg 1 del VIC 
**** 

****** 

***** 

Fissa il flag di carry come punt. 
Controlla modo testo grafica 
Salto al modo testo 
Ricontrolla 

Se bit 6=0 nessuna linea di raster 
IRQ 

Refresh 

Carica reg. direz. dati 
Mask out bit 0-1 
Metti a 1 bit 2 reg 
Salva conf su STACK 
Indirizzo di base per grafica 
Salva su Stack detto ind. 

Carica reg. di contr. 1 del VIC 

Esegui un clear su raster 1 

Fissa modo standard bit map 

Trasf in Y reg. di controllo 

Cariica il reg. di contr. 2 del VIC 

Controllo modo testo/grafica 

Fissa modo multicolore 

Metti a 0 bit modo multicolo 

Vai a loc. SC1DC, fissa bit modo me 

Registro di controllo in X 

Salto incondizionato a $C207 


Linea di raster nell' ultima linea 
Immagazzina come linea di RASTER 
Carica reg. direz. dati 
Fissa il bit 1 del reg. 

Esegui un clear sul bit 2 
Il bit 2 e ' =0 se CHAREN e' 
in RAM 

Carica ind. base di TESTO/GRAFICA 
nello STACK 

Carica reg. controllo VIC 
Esegui un clear del CARRY 
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clf6: 

a8 



tay 



clf 7 : 

ad 

16 

dO 

Ida 

* $d016 


clfa: 

29 

ef 


and 

#$ef 


clfc: 

aa 



tax 



clfd: 

b0 

08 


bcs 

* $c207 


clff : 

a2 

07 


ldx 

#$07 


c201 : 

ca 



dex 



c2 02 : 

d0 

fd 


bne 

* $c2 01 


c204 : 

ea 



nop 



c205 : 

ea 



nop 



c206 : 

aa 



tax 



FISSA 

I REGISTRI DI 

IRQ 


c207 : 

68 



pia 



c208 : 

8d 

18 

dO 

sta 

* ?d018 


c2 Ob : 

68 



pia 



c20c : 

85 

01 


sta 

$01 [ 

r6510 ] 

c2 0e : 

8c 

11 

dO 

sty 

* $d011 


c211 : 

8e 

16 

dO 

stx 

* $d016 


c214 : 

bO 

13 


bcs 

* $c229 


c216 : 

ad 

30 

dO 

lda 

* $d030 


c219 : 

29 

01 


and 

#$01 


c21b: 

fO 

Oc 


beq 

* $c229 


c2 ld : 

a5 

d8 


lda- 

$d8 [ 

graphm ] 

c21f : 

29 

40 


and 

#$40 


c221 : 

fO 

06 


beq 

* $c229 


c2 23 : 

ad 

11 

dO 

lda 

* $d011 


c226 : 

10 

oi 


bpl 

* $c229 


c228 : 

38 



sec 



c229 : 

58 



eli 



c22a: 

90 

07 


bcc 

* $c233 


c22c : 

20 

5d 

c5 

jsr 

* $c55d 


c22f : 

20 

e7 

c6 

jsr 

* $c6e7 


c2 32 : 

38 



sec 



c233 : 

60 



rts 



CARATTERE DA ROUTINE KEY 


c2 34 : 

a6 

di 


ldx 

$dl | 

i kyndx ] 

c236 : 

f0 

Oc 


beq 

* $c244 


c2 3 8 : 

a4 

d2 


Idy 

$d2 | 

[ keyidx ] 

c23a : 

b9 

0a 

10 

lda 

$100a,y 


c23d: 

c6 

di 


dee 

$dl | 

! kyndx ] 

c23f : 

e6 

d2 


ine 

$d2 | 

! keyidx ] 

c2 41 : 

58 



eli 



c242 : 

18 



clc 



c2 4 3 : 

60 



rts 



CARATTERE DA BUFFER 



c244 : 

ac 

4a 

03 

ldy 

$034a 


c247 : 

bd 

4b 

03 

lda 

$034b,x 


c24a : 

9d 

4a 

03 

sta 

$034a,x 


c2 4d : 

e8 



inx 



c24e : 

e4 

dO 


cpx 

$d0 

[ ndx ] 

c250: 

d0 

f 5 


bne 

* $c247 


c252 : 

c6 

dO 


dee 

$d0 

[ ndx ] 

c2 54 : 

98 



tya 



c255: 

58 



eli 




Metti in Y il reg. di contr.l 
Carica reg. controllo VIC n.2 
Esegui un CLEAR .sul BIT MULTICOLOR 
Trasf. in X reg. di contr. 2 
Se CARRY=1 non eseg. ciclo attesa 
Considera X cont. ciclo ritardo 
Decrem. contat di 1 

Salta a pos. se oper. prec.non esegui 
2 pass.non operativi nel ciclo 
di attesa 

Registro di controllo 2 in X 


Ricarica ind. base 
Immetti quanto sopra in VIC 
Carica dallo Stack registro di 
direzione dati. Esegui seg. salv. 
Registro 1 nel VIC 
Registro 2 nel VIC 
Se Carry a 1 esegui il salto 
Carica reg di clock a 1/2 MHz 
★*★★*★★* 

Salta se siamo a 1 MHz 

Carica modo TESTO/GRAFICA 

Controlla bit di interrupt della linea 

di RASTER. Se non e' nessun INTERRUPT 

Carica reg. di controllo 1 

Nessuna modifica al carry 

Fissa il CARRY come FLAG 

Disabilita tutti gli interrupt 

Se FLAG non= 0 salta 

Richiama la rout. KEY 

Vai alla rout. di FLASH del curs. 

Rimetti a 1 il, CARRY 


Controllo se devono rilevarsi carat. 
dal buffer di tastiera 
Carica punt. al buffer KEY 
Prendi un car. da TAVOLA KEY 
Decrem. cont. carattere 
Increm il puntatore 
Disabilita tutti gli interrupt 
Eseguì un CLEAR di CARRY 


Contr. n. caratteri in coda 
Prendi un caratt. da coda 
Immag. dopo uno spost. 
Incrementa il cont. 

Esegui lo spostamento di tutta 
la coda per il car. prelevato 
Decrementa la coda di 1 
Trasf. car. in A 
Disabil. tutti gli INTERRUPT 
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c256: 18 eie Esegui CLEAR di CARRY 

c257: 60 rts 


LINEA DI INPUT DA LOOP4 


c258 

20 

2d 

c7 

jsr 

* $c72d 


c2 5b 

20 

6f 

cd 

jsr 

* $cd6f 


c2 5e 

a5 

dO 


Ida 

$d0 [ 

ndx ] 

c26 0 

05 

di 


ora 

$dl [ 

kyndx ] 

c262 

fO 

fa 


beq 

* $c25e 


c2 64 

20 

9f 

cd 

jsr 

* Scd9f 


c267 

20 

34 

c2 

jsr 

* $c234 


c2 6a 

c9 

Od 


emp 

#$0d 


c26c 

dO 

ea 


bne 

* Sc258 


c2 6e 

85 

d6 


sta 

$d6 [ 

ersm ] 

c270 

a9 

00 


Ida 

#$00 


c272 

85 

f 4 


sta 

$f 4 [ 

qtsw ] 

c2 74 

20 

c3 

cb 

jsr 

* $cbc3 


c277 

8e 

30 

Oa 

stx 

$0a30 


c27a 

20 

b5 

cb 

jsr 

* $cbb5 


c2 7d 

a4 

e6 


ldy 

$e6 [ 

' self ] 

c27f 

a5 

e8 


Ida 

$e8 | 

! lsxp ] 

c281 

30 

13 


bmi 

* $c296 


c283 

c5 

eb 


emp 

$eb | 

! tblx ] 

c285 

90 

Of 


bcc 

* $c296 


c2 8 7 

a4 

e9 


ldy 

$e9 | 

; istp ] 

c289 

cd 

30 

Oa 

emp 

$0a30 


c28c 

dO 

04 


bne 

* $c292 


c28e 

c4 

ea 


cpy 

$ea 1 

[ indx ] 

c2 90 

f 0 

02 


beq 

* $c294 


c292 

bO 

11 


bes 

* $c2a5 


c294 

85 

eb 


sta 

$eb | 

[ tblx ] 

c296 

84 

ec 


sty 

$ec | 

[ pntr ] 

c298 

4c 

bc 

c2 

jmp 

* $c2bc 


c29b 

98 



tya 



c29c 

48 



pha 



c29d 

8a 



txa 



c2 9e 

48 



pha 



c29f 

a5 

d6 


Ida 

$d6 

[ ersm ] 

c2al 

fO 

b8 


beq 

* $c25b 


c2a3 

10 

17 


bpl 

* $c2bc 


c2a5 

a9 

00 


Ida 

#$00 


c2a7 

85 

d6 


sta 

$d6 

[ ersm ] 

c2a9 

a9 

Od 


Ida 

#$0d 


c2ab 

a2 

03 


ldx 

#$03 


c2ad 

e4 

99 


cpx 

$99 

[ dfltn ] 

c2af 

£0 

04 


beq 

* $c2b5 


c2bl 

e4 

9a 


cpx 

$9a 

[ dflto ] 

c2b3 

fO 

03 


beq 

* $c2b8 


c2b5 

20 

2d 

c7 

jsr 

* $c72d 


c2b8 

a9 

Od 


Ida 

#$0d 


c2ba 

dO 

39 


bne 

* $c2f5 


c2bc 

20 

5c 

cl 

jsr 

* $cl5c 


c2bf 

20 

58 

cb 

jsr 

* $cb58 


c2c2 

85 

ef 


sta 

$ef 

[ datax ] 

c2c4 

29 

3f 


and 

#$3f 


c 2c6 

06 

ef 


asl 

$ef 

[ datax ] 

c2c8 

24 

ef 


bit 

$ef 

[ datax ] 

c2ca 

10 

02 


bpl 

* $c2ce 


c2cc 

09 

80 


ora 

#$80 



Uscita carattere 
Spostamento cursore 

Carica in A n. car. di Buffer tast. 

Sommaci n. car.del Buffer KEY 

Se vuoto attendi 

Fissaggio del cursore 

Rileva car. dal buffer 

Controlla se e ' un Rit. Carr. 

Se no vai al prossimo car. 

Immag. flag di input 
Esegui un CLEAR sul FLAG 
Immag. in A vai. di QTSW 
Cale, fine linea INPUT 
Salva in X ult. pos. col. 

Fissa linea inizio 

Carica in Y bordo sin. fin. schermo 
Carica in A inizio linea INPUT 
Indirizzo linea inizio 
Confr. con attuale linea curs. 

Il bordo non e' stato ragg. 

Inizio colonna input 
Confr. con ultima col in INPUT 
Se non e ' la stessa colonna 
esegui un confronto con la linea 
ricercata in prec. 

Fissa il FLAG di INPUT/GET 
Scrivi 1 'attuale linea cursore 
Immag. attuale col. cursore 
Prendi il caratt. dove e' ora il curs 
Trasf. in Y pos. col. 

Salva sullo STACK 
Trasf. in X pos. linea 
Salva sullo STACK 
Carica FLAG di INPUT/GET 
Ciclo di rit. per GET 
Nessun Ritorno carrello 
Metti a 0 il flag di INPUT/GET 
tramite A 

Codice ASCII per Rit. Car. 

Confronta codice schermo per vedere 

se come perf. e' lo schermo 

Se la periferica e' lo schermo 

confronta con STANDARD di OUTPUT 

Uscita sullo schermo 

Ingresso per BSOUT 

Codice ASCII per Rit. Carr. 

Salto incond. alla fine 
Salta all' ind. linea att. 

Vai a car. e colore pos. att. curs. 
Immag. temp. per stampa caratt. 

Mask dei bit 6 e 7 
Conver. caratt. in 
ASCII 

Contr. non e' caratt. REVERSE 
Fissa il bit 7 
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c2ce: 

90 

04 


bcc 

* $c2d4 


c2d0 : 

a6 

f 4 


ldx 

Sf4 [ 

qtsw ] 

c2d2 : 

d0 

04 


bne 

* $c2d8 

c2d4 : 

70 

02 


bvs 

* $c2d8 


c2d6 : 

09 

40 


ora 

#$40 


c2d8 : 

20 

f f 

c2 

jsr 

* $c2ff 


c2db: 

a4 

eb 


ldy 

$eb [ 

tblx ] 

c2dd : 

cc 

30 

Oa 

cpy 

$0a30 


c2e0 : 

90 

0a 


bcc 

* $c2ec 


c2e2 : 

a4 

ec 


ldy 

$ec ( 

pntr ] 

c2e4 : 

c4 

ea 


cpy 

$ea [ 

indx ] 

c2e6 : 

90 

04 


bcc 

* $c2ec 


c2e8 : 

66 

d6 


ror 

$d6 [ 

ersm ] 

c2ea : 

30 

03 


bmi 

* $c2ef 


c2ec : 

20 

ed 

cb 

jsr 

* Scbed 


c2ef : 

c9 

de 


emp 

#$de 


c2f 1 : 

d0 

02 


bne 

* $c2f5 


c2f 3 : 

a9 

ff 


Ida 

#$ff 


c2f 5 : 

85 

ef 


sta 

$ef [ 

datax ] 

c2f 7 : 

68 



pia 



c2f 8 : 

aa 



tax 



c2f 9 : 

68 



pia 



c2f a : 

a8 



tay 



c2 f b : 

a5 

ef 


Ida 

$ef [ 

datax ] 

c2fd : 

18 



eie 



c2fe: 

60 



rts 



CONTROLLO PER 

APICI 


c2ff : 

c9 

22 


emp 

#$22 


c301: 

d0 

08 


bne 

* $c30b 


c303 : 

a5 

f 4 


Ida 

$f 4 [ 

qtsw ] 

c305 : 

49 

01 


eor 

#$01 


c307 : 

85 

f 4 


sta 

$f 4 [ 

qtsw ] 

c309 : 

a9 

22 


Ida 

#$22 


c30b : 

60 



rts 



IMPIEGO 

DI 

BSOUT 



c3 Oc : 

a5 

ef 


Ida 

$ef [ 

datax ] 

c30e : 

85 

f0 


sta 

$f0 [ 

lstchr ] 

c310 : 

20 

57 

cd 

jsr 

* $cd5 7 


c3 1 3 : 

a5 

f 5 


Ida 

$f 5 [ 

insrt ] 

c315 : 

fO 

02 


beq 

* $c319 


c31 7 : 

46 

f 4 


lsr 

$f 4 [ 

qtsw ] 

c319 : 

68 



pia 



c31a : 

a8 



tay 



c31b: 

68 



pia 



c3 le : 

aa 



tax 



c3 ld : 

68 



pia 



c31e : 

18 



eie 



c31f : 

60 



rts 



CONVERSIONE 

DA 

ASCII A CODICE 

POKE 

c3 2 0 : 

09 

40 


ora 

#$40 


c322 : 

a6 

f 3 


ldx 

$f 3 [ 

rvs ] 

c324 : 

f0 

02 


beq 

* $c328 


c326 : 

09 

80 


ora 

#$80 


c328 : 

a6 

f 5 


ldx 

$f 5 [ 

insrt ] 


Controllo bit 7 
Attiva il FLAG apici 
Se attivo salta a ind. 

Controllo bit 6 

Fissa il bit 6 per controllare se 
e' car. apici. Quindi fissa il FLAG 
Carica in Y att. pos. cursore 
Controllo pos. ident. ult. colonna 
Ultima colonna non raggiunta 
Carica in Y puntatore colonna 
Confronta con la fine 
La fine linea non raggiunta 
Rotazione CARRY in BIT 7 di $D6 
Controllo e quindi a nuova linea 
Sposta il cursore di una pos. a destra 
Confronta con ASCII PI 
se non e' PI 

Carica in A il codice giusto 
Carica in A car. di stampa 
Trasferisci in X il valore dello 
STACK tramite A (linea) 

Trasferisci in Y il valore dello 
STACK tramite A (colonna) 

Stampa il caratt. da immag. temp. 
Esegui un clear del CARRY 


Confronta con car.. apici 
Se altro carattere termina 
Carica attuale modo apici 
Modo reverse 

Immagazzina quanto sopra. 

Carica A con vai ASCII di apici 


Salva 1' attuale car. stampato 

come ultimo carattere 

Fissa il cursore all ' att. colonna 

Carica A con modo inserimento 

Il modo prec. non e' attivato 

Sposta a sin.FLAG modo apici 

Prendi il primo valore dallo STACK 

Trasferisci q.s. in Y 

Prendi il secondo valore da STACK 

Immettilo in X 

Carica A con vai. da STACK 

Clear CARRY 


Fissa bit 2 di A 

Attiva FLAG del modo RVS 

Nessun caratt. RVS 

Fissa bit di ordine HI per RVS 

Carica flaq di modo INSERT 
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c32a : 

f 0 

02 


beq 

* $c32e 


c32c : 

c6 

f 5 


dee 

$f 5 [ 

insrt 

c3 2e : 

24 

f 6 


bit 

$f 6 [ 

insflg 

c330 : 

10 

09 


bpl 

* $c33b 


c332 : 

48 



pha 



c3 3 3 : 

20 

e3 

c8 

jsr 

* $c8e3 


c33 6 : 

a2 

00 


ldx 

#$00 


c3 3 8 : 

86 

f 5 


stx 

$f 5 [ 

insrt 

c3 3a : 

68 



pia 



c33b: 

20 

2f 

cc 

jsr 

* $cc2 f 


c33e: 

c4 

e7 


cpy 

$e7 [ 

scrt ] 

c3 40 : 

90 

0a 


bcc 

* $c34c 


c342 : 

a6 

eb 


ldx 

$eb [ 

tblx ] 

c3 4 4 : 

e4 

e4 


cpx 

$e4 [ 

sebot 

c346 : 

90 

04 


bcc 

* $c34c 


c3 4 8 : 

24 

f 8 


bit 

$f 8 [ 

lockst 

c34a : 

30 

16 


bmi 

* $c362 


c34c : 

20 

5c 

cl 

jsr 

* $cl5c 


c34f : 

20 

ed 

cb 

jsr 

* $cbed 


c3 5 2 : 

90 

Oe 


bcc 

* $c362 


c354 : 

20 

74 

cb 

jsr 

* $cb74 


c3 5 7 : 

bO 

08 


bes 

* $c361 


c359 : 

38 



sec 



c35a : 

24 

f 8 


bit 

$f 8 | 

lockst 

c35c: 

70 

04 


bvs 

* $c362 


c35e : 

20 

le 

c3 

jsr 

* $c37c 


c361 : 

18 



eie 



c362 : 

60 



rts 



POSIZIONAMENTO 

PER LINEFEED 


c3 6 3 

a6 

eb 


ldx 

$eb | 

! tblx ] 

c365 

e4 

e4 


cpx 

$e4 | 

sebot 

c367 

90 

Oe 


bcc 

* $c377 


c369 

24 

f 8 


bit 

$f 8 | 

lockst 

c36b 

10 

06 


bpl 

* $c373 


c36d 

a5 

e5 


Ida 

$e5 | 

' sctop 

c36f 

85 

eb 


sta 

$eb | 

i tblx ] 

c371 

bO 

06 


bes 

* $c379 


c3 7 3 

20 

a6 

c3 

jsr 

* $c3a6 


c3 7 6 

18 



eie 



c377 

e6 

eb 


ine 

$eb ! 

[ tblx ] 

c379 

4c 

5c 

cl 

jmp 

* $cl5c 


c37c 

a6 

e8 


ldx 

$e8 

[ lsxp ] 

c37e 

30 

06 


bmi 

* $c386 


c380 

e4 

eb 


cpx 

$eb , 

[ tblx ] 

c382 

90 

02 


bcc 

* $c386 


c384 

e6 

e8 


ine 

$e8 

[ lsxp ] 

c386 

a6 

e4 


ldx 

$e4 

[ sebot 

c3 8 8 

20 

5e 

cl 

jsr 

* $cl5e 


c3 8b 

a4 

e6 


ldy 

$e6 | 

[ self ] 

c38d 

e4 

eb 


cpx 

$eb 

[ tblx ] 

c38f 

f0 

0f 


beq 

* $c3a0 


c3 91 

ca 



dex 



c392 

20 

76 

cb 

jsr 

* $cb76 


c3 9 5 

e8 



inx 



c396 

20 

83 

cb 

jsr 

* $cb83 


c399 

ca 



dex 



c39a 

20 

Od 

c4 

jsr 

* $c40d 


c39d 

4c 

88 

c3 

jmp 

* $c388 



Nessun modo di insert 

Decrementa contatore 

Controllo per FLAG di auto insert 

Salta se disattivato 

Salva A in STACK 

Vai al modo SOTTO IL CURSORE 

Fissa il FLAG modo INSERT 

a 0 

Ricarica A con valore in STACK 
Uscita car. all' att. pos curs. 
Confr.per bordo destro finestra 
Bordo di cui sopra non trovato 
Imm. att. pos. curs in X 
Confr. per bordo in basso finestra 
Bordo di cui s. non trovato 
Controllo FLAG di SCROLL 
Nessun scrolling, vai a fine 
Determ.ind. iniz.linea attuale 
Sposta di 1 il cursore verso destra 
Controllo per nessuna linea nuova 
Controllo per Bit di overflow 
Il bit di Overflow e' fissato 
Fissa bit di CARRY per non scroi1 
Controllo per bit di scroi1 
Salta se non scroi1 
Immetti una linea a'X 
Esegui CLEAR di carry 


Immetti att. linea curs. in X 
Confronta per bordo basso schermo 
Non trovato il bordo basso schermo 
Controllo per bit di scroi1 
Scroll abilitato 
Carica A con bordo sup. schermo 
Scrivi att. pos. linea curs. 

Salto incond. a indir, indicato 

Esecuzione di scroll 

Clear di carry 

Incr. att. linea curs. di 1 

Detrmina ind.di part. linea attuale 

Inizio linea di input 

La linea oggetto e'la seguente 

Confronto con att.pos. curs. su linea 

Controllo di ricerca cursore 

Incr.inizio linea input 

Carica X con vai.bordo basso cshermo 

Fissa ind. attuale linea schermo 

Carica in Y bordo sinistro schermo 

Confronto con attuale linea 

Linea cursore e' bordo basso 

Decrementa linea di 1 

Controllo bit di overflow 

Ritorno alla linea attuale 

Clear bit di Overflow 

Ritorno alla linea precedente 

Copia una linea di schermo 

Ritorna al ciclo 
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c3a0 : 

20 

a5 

c4 

jsr 

* $c4a5 


c3a3 : 

4c 

93 

cb 

jmp 

* $cb9 3 


c3a6 : 

a6 

e5 


ldx 

Se5 [ 

setop ] 

c3a8 : 

e8 



inx 



c3a9 : 

20 

76 

cb 

jsr 

* $cb76 


c3ac: 

90 

0a 


bcc 

* $c3b8 


c3ae : 

e4 

e4 


cpx 

$e4 [ 

sebot ] 

c3b0 : 

90 

f 6 


bcc 

* Sc3a8 


c3b2 : 

a6 

e5 


ldx 

$e5 [ 

sctop ] 

c3b4 : 

e8 



inx 



c3b5 : 

20 

85 

cb 

jsr 

* $cb85 


c3b8 : 

c6 

eb 


dee 

$eb [ 

tblx ] 

c3ba : 

24 

e8 


bit 

$e8 [ 

lsxp ] 

c3bc: 

30 

02 


bmr 

* $c3c0 


c3be: 

c6 

e8 


dee 

$e8 [ 

lsxp ] 

c3c0 : 

a 6' 

e5 


ldx 

$e5 [ 

sctop ] 

c3c2 : 

e4 

df 


cpx 

$df [ 

keytmp ] 

c3c4 : 

b0 

02 


bes 

* $c3c8 


c3c6 : 

c6 

df 


dee 

$df [ 

keytmp ] 

c3c8 : 

20 

de 

c3 

jsr 

* $c3dc 


c3cb : 

a6 

e5 


ldx 

$e5 [ 

sctop ] 

c3cd : 

20 

76 

cb 

jsr 

* $cb76 


c3d0 : 

08 



Php 



c3dl : 

20 

85 

cb 

jsr 

* $cb8 5 


c3d4 : 

28 



plp 



c3d5 : 

90 

04 


bcc 

* $c3db 


c3d7 : 

24 

f 8 


bit 

$f 8 [ 

locks+ 1 

c3d9 : 

30 

cb 


bmi 

* $c3a6 


c3db : 

60 



rts 



ESEGUI UN CLEAR 

DELA LINEA X 


c3dc: 

20 

5e 

cl 

jsr 

* $cl5e 


c3df : 

a4 

e6 


ldy 

$e6 [ 

self ] 

c3el : 

e4 

e4 


cpx 

$e4 [ 

sebot ) 

c3e3 : 

b0 

0f 


bes 

* $c3f4 


c3e5 : 

e8 



inx 



c3e6 : 

20 

76 

cb 

jsr 

* $cb7 6 


c3e9 : 

ca 



dex 



c3ea : 

20 

83 

cb 

jsr 

* $cb8 3 


c3ed: 

e8 



inx 



c3ee : 

20 

Od 

c4 

jsr 

* $c40d 


c3f 1 : 

4c 

de 

c3 

jmp 

* $c3dc 


c3f 4 : 

20 

a5 

c4 

jsr 

* $c4a5 


c3 f 7 : 

a9 

7 f 


Ida 

#$7f 


c3f 9 : 

8d 

00 

de 

sta 

* $dc00 


c3fc: 

ad 

01 

de 

Ida 

* SdcOl 


c3f f : 

c9 

df 


emp 

#$df 


c401 : 

d0 

09 


bne 

* $c40c 


c40 3 : 

a0 

00 


ldy 

#$00 


c4 05 : 

ea 



nop 



c406 : 

ca 



dex 



c4 07 : 

d0 

f C 


bne 

* $c405 


c409 : 

88 



dey 



c40a : 

dO 

f 9 


bne 

* $c405 


c40c : 

60 



rts 




ROUTINE MOVLIN 


Esegui un clear sulla linea 

Fissa il bit di Carry 

Carica in X bordo sup. schermo 

Incrementa linea di 1 

Controllo bit di Overflow 

Nessun overflow come ris. di contr. 

Confronta il bordo basso schermo 

Bordo non raggiunto 

Carica su X bordo superiore 

Incrementalo di 1 

Fissa il bit di overflow 

Decr. di 1 attuale linea curs. 

Controlla bit 7 della linea di INPUT 

Salta se e ' a 1 

Decrementa di 1 linea di INPUT 
Carica su X bordo alto schermo 
Confronta con linea cursore 
Se >= a bordo sup. salta a ind. indie 
Decrementa linea cursore di 1 
Sposta resto dello schermo 
Carica in X bordo sup. 

Controllo bit di overflow 

Salva i FLAGS sullo STACK 

Esegui un CLEAR su bit di overflow 

Riporta indietro i FLAGS 

Se carry cleared = fine 

Controlla FLAG di scroll 

Fissa il bit 7 e poi esegui SCROLL 


Clear su linea determ da X 
Carica su Y bordo sinistro 
Confronta vai. bordo basso 
Valore del bordo incontrato 
Il puntatore posiz.linea seguente 
Controlla bit di overflow 
Puntatore ripos. linea attuale 
Clear bit di Overflow 
Puntatore ancora linea seguente 
Copia linea 
Copia linea succ. 

Clear linea X 
Flag per modo diretto 
Lettura di tastiera 
Carica matrice di tastiera 
Contr. per tasto CBM premuto 
Controllo negativo. Fine 
Tasto CBM premuto 
Nessuna operazione 
Decremento X per ciclo ritardo 
Uscita ciclo 

Ciclo da 0 a 65536 e dopo viene 
provocato un arresto 


c4 Od : 24 d7 


bit Sd7 


[ mode ] 


Controllo modo 40/80 colonne 
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c40f : 

30 

25 

bmi 

* $c436 



c 4 11 : 

bd 

33 c0 

Ida 

* $c033,x 



c4 1 4 : 

85 

de 

sta 

Sdc [ 

keynum 

] 

c4 1 6 : 

85 

da 

sta 

Sda [ 

keysiz 

J 

c41 8 : 

bd. 

4c cO 

Ida 

* $c04c,x 



c4 lb : 

29 

03 

and 

#$03 



c4 ld : 

Od' 

3b Oa 

ora 

$0a3b 



c4 2 0 : 

85 

db 

sta 

$db [ 

keylen 

] 

c422 : 

29 

03 

and 

#$03 



c4 2 4 : 

09 

d8 

ora 

#$d8 



c426 : 

85 

dd 

sta 

$dd [ 

keynxt 

] 

c4 2 8 : 

bl 

da 

Ida 

($da),y [ 

keysiz 

J 

c4 2a : 

91 

eO 

sta 

($e0),y [ 

pnt ] 


c42c : 

bl 

de 

Ida 

($dc),y [ 

keynum 

], 

c4 2e : 

91 

e2 

sta 

( $e2 ) ,y [ 

user ] 


c4 3 0 : 

c4 

e7 

cpy 

$e7 [ 

scrt ] 


c432 : 

c8 


iny 




c4 3 3 : 

90 

f 3 

bcc 

* $c428 



c4 3 5 : 

60 


rts 




COPIA 

DI 

LINEA 

IN 80 COLONNE 



c4 3 6 : 

8e 

31 Oa 

stx 

$0a31 



c4 3 9 : 

8c 

32 Oa 

sty 

$0a32 



c43c : 

a2 

18 

ldx 

#$18 



c4 3e : 

20 

da cd 

jsr 

* $cdda 



c4 41 : 

09 

80 

ora 

#$80 



C4 43 : 

20 

cc cd 

jsr 

* $cdcc 



c4 4 6 : 

20 

e6 cd 

jsr 

* $cde6 



c449 : 

ae 

31 Oa 

ldx 

$0a31 



c4 4c : 

bd 

33 cO 

Ida 

* $c033,x 



c44f : 

0a 


asl 

a 



c4 5 0 : 

85 

da 

sta 

$da [ 

keysiz 

] 

c4 5 2 : 

bd 

4c cO 

Ida 

* $c04c,x 


c4 5 5 : 

29 

03 

and 

#$03 



c4 5 7 : 

2a 


rol 

a 



c4 5 8 : 

Od 

2e Oa 

ora 

$0a2e 



c45b: 

85 

db 

sta 

$db [ 

keylen 

] 

c4 5d : 

a2 

20 

ldx 

#$20 



c45f : 

18 


eie 




c4 6 0 : 

98 


tya 




c4 61 : 

65 

da 

adc 

$da l 

keysiz 

1 

c4 6 3 : 

85 

da 

sta 

$da [ 

keysiz 

J 

c465 : 

a9 

00 

Ida 

#$00 


c467 : 

65 

db 

adc 

$db [ 

keylen 

1 

c469 : 

85 

db 

sta 

$db [ 

keylen 

1 

c46b : 

20 

cc cd 

jsr 

* $cdcc 



c46e : 

e8 


inx 




c46f : 

a5 

da 

lda 

$da [ 

keysiz 

] 

c4 71 : 

20 

cc cd 

jsr 

* $cdcc 


c4 74 : 

38 


sec 




c475 : 

a6 

e7 

ldx 

$e7 [ 

scrt ] 


c4 7 7 : 

e8 


inx 




c478 : 

8a 


txa 




c 479: 

ed 

32 Oa 

sbe 

$0a32 



c 4 7 c : 

8d 

32 Oa 

sta 

$0a32 



c47f : 

a2 

le 

ldx 

#$le 



c4 81 : 

20 

cc cd 

jsr 

* $cdcc 



c484 : 

a2 

20 

ldx 

#$20. 



c486 : 

a5 

db 

lda 

$db [ 

keylen 

] 


Salta se 80 colonne 
Carica Byte basso linea attuale 
Immag. byte basso in $DC 
ed in $DA 

Carica byte alto di ind. attuale 

Mask out dei bit 2-7 1 

Esegui un OR con ind. base video 

Salva lungh.tasto in A 

Esegui un AND fra bit 1 e 2 con ind. 

base della RAM colore 

Immag. come byte alto 

Carica carat. sorgente e salvalo come 
indirizzo di arrivo 

Carica colore sorgente e salvalo come 
sorgente 

Confronta vai. bordo destro schermo 

Increm. di 1 punt. colonna 

Salta a indir, spec. se non e' fine 


Immag. tempor. n. di linea 

Idem per colonna 

Reg. 24 contiene bit di COPY 

Salta al valore di registro 

Fissa il bit di COPY 

Immagaz. registro in VDC 

Fissa ind. agg. ad attuale posiz. 

Carica la linea da copiare 

Byte basso della linea da copiare 

Ciclo di 2 tempi 

Immagaz. byte basso 

Carica byte alto linea da copiare 

Mask out dei bit 3-7 

Rotazione valore di Carry 

Aggiungi base video RAM 

Salva come byte alto 

Indirizzo alto blocco di part. 

Esegui un clear CARRY per somma 

Immetti n.colonna in A 

Sommaci il Byte basso 

Ind di part+ colonna nel Byte basso 

Carica 0 in A 

Somma al byte alto 

Salva risultato come nuovo byte HI 
Salva come indirizzo blocco partenza 
Puntatore a ind. basso blocco part. 
Carica Byte basso ind. di destino 
Vai al VDC 

Fissa il Carry per sottrazione 

Carica bordo sin. schermo in X 

Incrementalo di 1 

Trasferisci in A 

Sottrai attuale colonna 

Slavala come valore 

Registro VDC per contat. parole 

Inizio copia 

Indir, alto blocco part. 

Carica byte alto di ind. sergente 
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c488 : 

29 

07 


and 

#$07 


c48a: 

Od 

2f 

0a 

ora 

$0a2f 


c4 8d: 

20 

cc 

cd 

jsr 

* $cdcc 


c4 9 0 : 

e8 



inx 



c4 91 : 

a5 

da 


Ida 

$da [ 

keysiz ] 

c493 : 

20 

cc 

cd 

jsr 

* $cdcc 


c496 : 

20 

f 9 

cd 

jsr 

* $cdf9 


c4 99 : 

ad 

32 

Oa 

Ida 

$0a32 


c49c: 

a2 

le 


ldx 

#$le 


c4 9e : 

20 

cc 

cd 

jsr 

* $cdcc 


c4al : 

ae 

31 

0a 

ldx 

$ 0a31 


c4a4 : 

60 



rts 



ESEGUI IL CLEAR DI 

LINEA (40 

COLONNE) 

c4a5 : 

a4 

e6 


ldy 

?e6 [ 

self ] 

c4a7 : 

20 

85 

cb 

jsr 

* $cb8 5 


c4aa : 

20 

5e 

cl 

jsr 

* $cl5e 


c4ad : 

24 

d7 


bit 

$d7 [ 

mode ] 

c4af : 

30 

Of 


bmi 

* $c4c0 


c4bl : 

88 



dey 



c4b2 : 

c8 



iny 



c4b3 : 

a9 

20 


Ida 

#$20 


c4b5 : 

91 

e0 


sta 

( $e0),y [ 

pnt ] 

c4b7 : 

a5 

fi 


Ida 

$f 1 [ 

color ] 

c4b9 : 

91 

e2 


sta 

($e2),y [ 

user ] 

c4bb : 

c4 

e7 


cpy 

$e7 [ 

scrt ] 

c4bd : 

d0 

f 3 


bne 

* $c4b2 


c4bf : 

60 



rts 



ESEGUI IL CLEAR 

DI LINEA (80 

COLONNE) 

c4c0 : 

8e 

31 

Oa 

stx 

$0a31 


c4c3 : 

8c 

32 

Oa 

sty 

$0a32 


c4c6 : 

a2 

18 


ldx 

#$18 


c4c8 : 

20 

da 

cd 

jsr 

* $cdda 


c4cb: 

29 

7 f 


and 

#$7f 


c4cd : 

20 

CC 

cd 

jsr 

* $cdcc 


c4d0 : 

a2 

12 


ldx 

#$12 


c4d2 : 

18 



eie 



c4d3 : 

98 



tya 



c4d4 : 

65 

eO 


adc 

$e0 [ 

pnt ] 

c4d6 : 

48 



pha 



c4d7 : 

8d 

3c 

0a 

sta 

$0a3c 


c4da : 

a9 

00 


Ida 

#$00 


c4dc : 

65 

el 


adc 

Sei [ 

pnt+ 1 ] 

c4de : 

8d 

3d 

0a 

sta 

$0a3d 


c4el : 

20 

CC 

cd 

jsr 

* $cdcc 


c4e4 : 

e8 



inx 



c4e5 : 

68 



pia 



c4e6 : 

20 

cc 

cd 

jsr 

* $cdcc 


c4e9 : 

a9 

20 


Ida 

#$20 


c4eb : 

20 

ca 

cd 

jsr 

* $cdca 


c4ee : 

38 



sec 



c4ef : 

a5 

e7 


Ida 

$e7 [ 

scrt ] 

c4 f 1 : 

ed 

32 

Oa 

sbe 

$ 0a3 2 


c4f 4 : 

48 



pha 



c4f 5 : 

fO 

14 


beq 

* $c50b 


c4 f 7 : 

aa 



tax 



c4 f 8 : 

38 



sec 




Mascheramento bits 3-7 

Aggiungi a RAM 

Fissa i puntatori dei reg. 

all' indirizzo basso blocchi partenza 

Carica indirizzo sorgente 

Fissa indirizzo sorgente 

Esegui aggior. indirizzo 

Carica n. caratt. da copiare 

Reg 31 come registro contat. parole 

Esegui la copia 

Ricarica attuale linea 


Carica in Y bordo sinistro 

Esegui un Clear sul bit di overflow 

Indirizzo di part. linea X 

Controllo modo 40/80 colonne 

Salta se 80 colonne 

Falso decremento 

Incrementa di 1 punt. colonna 

Carica A con SPAZIO 

Immag. SPAZIO in RAM del video 

Carica A con codice col. carattere 

Immag. il colore nella RAM colore 

Confronto per bordo destro 

Salta se non uguale 


Salva X 
Salva Y 

Seleziona reg. 24 
Prendi il valore attuale linea 
Esegui un clear sul bit di COPY 
Salva il nuovo valore 
Aggiorna indirizzo alto 
Clear di carry per somma 
Colonna in A 

Aggiungi ind. basso di inizio 
Immag. ind. basso sullo STACK 
Immagazzina byte basso , 

Carica A con 0 

Aggiungi il carry al Byte alto 

Immag. in A byte alto 

Metti q.s. nel registro di indirizzo 

Aggiorna indirizzo basso 

Carica byte basso da STACK 

Immetti Byte basso in VDC 

Carica A con SPAZIO 

Immettilo nel registro dati VDC 

Fissa il carry per sottrazione 

Carica in A bordo destro schermo 

Sottrai colonna di inizio 

Salva il numero sullo Stack 

La col. di partenza = al bordo destro 

Trasfer. in X il valore 

Fissa il Carry per la somma 
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c4f 9 : 

6d 

3c 

0a 

adc 

$0a3c 


c4f C: 

8d 

3c 

Oa 

sta 

$0a3c 


c4f f : 

a9 

00 


Ida 

#$00 


c501 : 

6d 

3d 

Oa 

adc 

$0a3d 


c504 : 

8d 

3d 

Oa 

sta 

$0a3d 


c507 : 

8a 



txa 



c508 : 

20 

3e 

c5 

jsr 

* $c53e 


cSOb: 

a2 

12 


ldx 

#$12 


c5 Od : 

18 



eie 



c50e : 

98 



tya 



c50f : 

65 

e2 


adc 

$e2 i 

! user ] 

c511 : 

48 



pha 



c512 : 

a9 

00 


Ida 

#$00 


c514 : 

65 

e3 


adc 

$e3 | 

’ user+ 1 

c516 : 

20 

cc 

cd 

jsr 

* $cdcc 


c519 : 

e8 



inx 



c51a: 

68 



pia 



c51b: 

20 

cc 

cd 

jsr 

* $cdcc 


c51e: 

ad 

3d 

Oa 

lda 

$0a3d 


c521 : 

29 

07 


and 

#$07 


c523: 

Od 

2f 

Oa 

ora 

$ 0a2f 


c5 26 : 

8d 

3d 

Oa 

sta 

$0a3d 


c52 9 : 

a5 

fi 


lda 

$fl 1 

[ color ] 

c52b: 

29 

8f 


and 

#$8f 


c52d : 

20 

ca 

cd 

jsr 

* $cdca 


c5 30 : 

68 



pia 



c531 : 

fO 

03 


beq 

* $c536 


c5 3 3 : 

20 

3e 

c5 

jsr 

* $c53e 


c5 36 : 

ae 

31 

Oa 

ldx 

$0a31 


c5 39 : 

a4 

e7 


ldy 

$e7 | 

[ scrt ] 

c5 3b: 

60 



rts 




SCRITTURA DI UN CARATTERE IN A 


c53c : 

a9 

01 


lda 

#$01 

c5 3e: 

a2 

le 


ldx 

#$le 

c5 4 0 : 

20 

cc 

cd 

jsr 

* $cdcc 

c54 3 : 

2c 

00 

d6 

bit 

* $d600 

c546 : 

10 

fb 


bpl 

* $c543 

c54 8 : 

a2 

12 


ldx 

#$12 

c54a : 

20 

da 

cd 

jsr 

* $cdda 

c54d : 

cd 

3d 

Oa 

emp 

$0a3d 

c5 50 : 

90 

ea 


bcc 

* $c53c 

c552 : 

a2 

13 


ldx 

#$13 

c5 5 4 : 

20 

da 

cd 

jsr 

* $cdda 

c557 : 

cd 

3c 

Oa 

emp 

$0a3c 

c55a : 

90 

eO 


bcc 

* $c53c 

c55c : 

60 



rts 



CONTROLLO MATRICE DI TASTIERA 


Somma Byte basso 
Salva il risultato su A 
Metti 0 in A 

Somma il carry al Byte alto 
Salva il byte alto 
Trasf il n. caratteri in A 
A in reg. cont. parole 
Aggiorna indirizzo alto 
Clear carry per somma 
Colonna in A 
Somma valore Byte basso 
Salva byte basso su Stack 
Carica A con 0 
Somma il Carry 
Scrivi Byte alto in reg. 

Aggiorna ind. alto 
Prendi byte alto da Stack 
Scrivilo nel registro 

Carica byte alto indirizzo di destino 

Mask out bits 4-7 

Esegui un OR con ind. destino 

Salva il risultato 

Cod.colore caratt. in A 

Colore e bit di ALT 

Prendi i cont. reg. dal reg. DATA 

Prendi il numero dallo STACK 

Se = 0 salta 

Uscita colore 

Ricarica reg X 

Carica y con bordo destro 


Metti 1 nel contatore 

Seleziona reg. cont. parole 

Determinane il valore 

Controllo bit di status 

Ciclo di attesa 

Aggiorna indirizzo alto 

Carica valore attuale 

Confr.con byte HI ind. destinazione 

Se diver.correz.errore 

Aggiorna ind. basso 

Carica vai. attuale 

Confronta con ind. dest. basso 

Se diver.correz.errore 


c5 5d : 

a5 

01 

lda $01 

[ r6510 

c55f : 

29 

40 

and #$40 


c561 : 

49 

40 

eor #$40 


c563 : 

4a 


lsr a 


C564 : 

4a 


lsr a 


c565 : 

85 

d3 

sta $d3 

[ shflag 

c567 : 

aO 

58 

ldy #$58 


c56 9 : 

84 

d4 

sty $d4 

[ sfdx ] 


Carica bit 6 da pag. ZERO 

NOTA: Il bit 6 indica se e' stato 

selezionato il modo 40 o 80 colonne 

Inverti il bit 6 

alla posizione 4 

Immagazz. modo 40/80 

Metti codice per NESSUN TASTO in p.O 
Imm. punt. per tasto premuto= 
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c56b 

a9 

00 


Ida 

#$00 


c56d 

8d 

00 

de 

sta 

* $dc00 


c570 

8d 

2f 

dO 

sta 

* $d02f 


c57 3 

ae 

01 

de 

ldx 

* SdcOl 


c57 6 

eO 

f f 


cpx 

#$ff 


c578 

dO 

03 


bne 

* $c57d 


cS7a 

4c 

97 

c6 

jmp 

* $c697 


c57d 

a8 



tay 



c57e 

ad 

3e 

03 

Ida 

$0 3 3e 


c581 

85 

cc 


sta 

$cc [ 

keytab ] 

c583 

ad 

3f 

03 

Ida 

$033f 


c5 86 

85 

cd 


sta 

$cd [ 

keytab+1 

c588 

a9 

f f 


Ida 

#$ff 


c58a 

8d 

2f 

dO 

sta 

* ?d02f 


c58d 

2a 



rol 

a 


c58e 

24 

d3 


bit 

$d3 ( 

shflag J 

c590 

30 

05 


bmi 

* $c597 


c5 9 2 

8d 

00 

de 

sta 

* $dc00 


c59 5 

10 

03 


bpl 

* $c59a 


c597 

8d 

2f 

dO 

sta 

* $d02f 


c5 9a 

a2 

08 


ldx 

#$08 


c59c 

48 



pha 



c5 9d 

ad 

01 

de 

Ida 

* $dc01 


c5a0 

cd 

01 

de 

emp 

* $dc01 


c5a3 

ao 

f 8 


bne 

* $c59d 


c5a5 

4a 



lsr 

a 


c5a6 

bO 

17 


bes 

* $c5bf 


c5a8 

48 



pha 



c5a9 

bl 

cc 


Ida 

($cc),y [ 

’ keytab ] 

c5ab 

c9 

08 


emp 

#$08 


c5ad 

fO 

08 


beq 

* $c5b7 


c5af 

c9 

05 


emp 

#?05 


c5bl 

bO 

09 


bes 

* $c5bc 


c5b3 

c9 

03 


emp 

#$03 


c5b5 

fO 

05 


beq 

* $c5bc 


c5b7 

05 

d3 


ora 

$d3 | 

[ shflag ] 

c5b9 

85 

d3 


sta 

$d3 ! 

| shflag ) 

c5bb 

2c 

84 

d4 

bit 

* $d484 


c5be 

68 



pia 



c5bf 

c8 



iny 



c5c0 

ca 



dex 



c5cl 

dO 

e2 


bne 

* $c5a5 


c5c3 

cO 

59 


cpy 

#$59 


c5c5 

bO 

10 


bes 

* $c5d7 


c5c7 

68 



pia 



c5c8 

38 



sec 



c5c9 

2a 



rol 

a 


c5ca 

bO 

c2 


bes 

* $c58e 


c5cc 

8d 

00 

de 

sta 

* $dc00 


c5cf 

26 

d3 


rol 

$d3 

[ shflag ] 

c5dl 

38 



sec 



c5d2 

66 

d3 


ror 

$d3 

[ shflag ] 

c5d4 

2a 



rol 

a 


c5d5 

dO 

b7 


bne 

* $c58e 


c5d7 

06 

d3 


asl 

$d3 

[ shflag ] 

c5d9 

46 

d3 


lsr 

$d3 

[ shflag ] 

c5db 

68 



pia 



c5dc 

a5 

d4 


Ida 

$d4 

[ sfdx ] 

c5de 

6c 

3a 

03 

jmp 

( $ 0 3 3a ) 


c5el 

c9 

57 


emp 

#$57 



Controllo valore per matrice linee 

Imiti. matrici linee 1-8 

Idem per linee 9-11 

Porta B = ingresso matrice colonne 

Controllo se tasto premuto 

Controllo quale tasto e' premuto 

Se nessun tasto continua 

Vis.cont.inizio tavola tastiera 

Copia indirizzo basso tavola decodifi 

di tastiera in pagina 0 

Come sopra per indirizzo 

alto 

Controllo vaolre matrice tastiera 

Fissa contr. linee 9-11 in HI 

Metti a 0 bit posiz. linea controllo 

Puntatore controllo 1-8 o 9-11 

Se controllo linee 9-11 salta 

Controllo porta A 

Controllo salto matrici 9-11 

Controllo porta A 9-11 

Fissa cont. per matrice 8 colonne 

Carica in A vai.linea contr 

Uscita matrici colonne 

Confronto porte A-B 

Attesa 

Controlla valore matrice 

Colonne bit per bit 

Immag.valore use. matrici colonne 

Carica codice tasto da tavola tastie 

Codice tasto '8 = ALT 

Esegui la funzione corrispondente 

Controllo per SHIFT.CBM, Ctrl 

Se non e' continua 

Controllo se e ' un tasto BREAK 

Se e' un BREAK eseguine la funz. 

Puntatore pg.O 

Immag. in A 

Vai all' indirizzo 

Carica valore matrice colonne 

Incr.+l cont. vis.tavola tastiera 

Decr.-l cont. ciclo matrice col. 

Ciclo controllo tutte colonne 
Contr. sia linee che colonne 
Se positivo valut. tasto premuto 
Prendi dallo Stack vai.li.controllo 
Fissa il flag di carry 
Valore linea di controllo 
Continua controllo linne 1-8 
Fissa porta A vai. controllo HI 
Bit 7 in pattern FLAG 
Linee restanti dalla matrice 
Linee 9-11 controllate da porta A 
Operazione di Clear bit per 9-11 
Controllo matrice successiva 
Valutaz. risultato tastiera 
Controllo porta A 

Dallo Stack valore a linea controllo 
Codice tasto premuto in A 
Lettura vettore tastiera 
Controllo tasto NO SCROLL 
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c5e3 : 

dO 

13 


bne 

* $c5f8 


Se negativo salta 

c5e5 : 

24 

f 7 


bit 

Sf7 [ 

locks ] 

Bit 6 in Pag.O per pausa :l=disabi1 

c5e7 : 

70 

5a 


bvs 

* $c643 


Se nes. pausa esegui un RTS 

c5e9 : 

ad 

25 

Oa 

Ida 

$0a25 


Carica A con ultimo Car. 

c5ec: 

dO 

55 


bne 

* $c64 3 


Se non e'=0 esci con RTS 

c5ee : 

a9 

Od 


Ida 

#$0d 


Inverti i bits 0,1 e 3 del puntatore 

c5f 0 : 

4d 

21 

Oa 

eor 

$ 0a21 


di pag. 0 ed immagazzinali nel puntat 

c5f 3: 

8d 

21 

Oa 

sta 

$0a21 


di pausa della Pag.O 

c5f 6 : 

50 

30 


bvc 

* $c628 


Routine di ripetiz. tastiera 

C5f8: 

a5 

d3 


Ida 

$d3 [ 

shflag ] 

Carica A 

c5f a : 

f 0 

55 


beq 

* $c651 


Valutazione normale 

c5f c: 

c9 

10 


cmp 

#$10 


Contr. per scelta set 40 car. 

c5f e : 

f0 

44 


beq 

* $c6 4 4 


Se si esegui per 40 caratt. 

c600 : 

c9 

08 


cmp 

#$08 


Controllo pressione tasto ALT 

c602 : 

f0 

42 


beq 

* $c646 


Se posit. esegui 

c604 : 

29 

07 


and 

#$07 


Mascheramento bits 3-7 

c606 : 

c9 

03 


cmp 

#$03 


Controllo pressione CBM shiftato 

c608 : 

dO 

25 


bne 

* $c62f 


Se negativo ricontrolla 

c60a : 

a5 

f 7 


Ida 

$f 7 [ 

locks ] 

Controllo per CBM shift SWITCH 

c60c : 

30 

43 


bmi 

* $c651 


Se si non ripetere routine 

c60e : 

ad 

25 

Oa 

Ida 

$ 0a2 5 


Carica ultimo car. 

c611 : 

dO 

3e 


bne 

* $c651 


Se non e ' 0 ripeti routine 

c613 : 

24 

d7 


bit 

$d7 | 

mode ] 

Controllo modo 40/80 

c615 : 

10 

09 


bpl 

* $c620 


Se positivo siamo a 40 colonne 

c617 : 

a5 

fi 


Ida 

$fl 1 

color ] 

Carica in A codice colore car. 

c619 : 

49 

80 


eor 

#$80 


Inverti bit 7 codice colore 

c61b: 

85 

fi 


sta 

$f 1 1 

color ] 

Immag. codice colore 

c6 Id : 

4c 

28 

c6 

jmp 

* $c628 


Salta interr. caratt. VIC 

c62 0 : 

ad 

2c 

Oa 

Ida 

$0a2c 


Puntatore sistema per testo 

c62 3 : 

49 

02 


eor 

#$02 


Inverti bit 2 del puntatore 

c62 5 : 

8d 

2c 

Oa 

sta 

$ 0a2c 


Carica la base del puntatore 

c628 : 

a9 

08 


Ida 

#$08 


Inizializza il sistema di puntatori 

c62a : 

8d 

25 

Oa 

sta 

$ 0a2 5 


con 8 per 1 ' ultimo carattere 

c62d : 

do 

22 


bne 

* $c651 


Vai alla ripetizione della routine 

c62f : 

0a 



as 1 

a 


Moltiplica per 2 

c630 : 

c9 

08 


cmp 

#$08 


Confronto per SHIFT o CBM 

c6 32 : 

90 

12 


bcc 

* $c6 4 6 


Se trovato carica tavola di decodifica 

c6 34 : 

a9 

06 


Ida 

#$06 


Valore di default CTRL in A 

c636 : 

a6 

d4 


ldx 

$d4 | 

sfdx ] 

Controlla salto tavola decodif 

C638-: 

eO 

Od 


cpx 

#$0d 


Controlla se 13mo tasto 

c63a : 

dO 

Oa 


bne 

* $c646 


Fissa il flag di pausa e salta 

c6 3c : 

24 

f 7 


bit 

$f 7 | 

[ locks ] 

Controllo consenso pausa/Ctrl-s 

c6 3e : 

70 

06 


bvs 

* $c646 


Nessun consenso, vai a tav. decod 

c640 : 

8e 

21 

Oa 

stx 

$0a21 


Imm X flag pausa valore 13 

c643 : 

60 



rts 




FISSA 

INDIRIZZO 

INIZIALE TAVOLA DI DECODIFICA 

c644 : 

a9 

Oa 


Ida 

#$0a 


Fissa il valore di default alla tav 

c646 : 

aa 



tax 



N. tavola di decodif in reg. X 

c6 4 7 : 

bd 

3e 

03 

Ida 

$033e,x 


Copia indirizzo basso tavola di decodi 

c64a : 

85 

cc 


sta 

$cc 

[ keytab ] 

fica nella memoria in pag. 0 

c64c : 

bd 

3f 

03 

Ida 

$0 3 3f,x 


Idem per indirizzo 

c64f : 

85 

cd 


sta 

$cd 

[ keytabt 1 

]a Ito 

c651: 

a4 

d4 


ldy 

$d4 

[ sfdx ] 

Inizio tavola in Y 

c653 : 

bl 

CC 


Ida 

($cc),y 

[ keytab ] 

Carica A con codice caratt. da tavola 

c6 5 5 : 

aa 



tax 



Immag. car. in X 

c656 : 

c4 

d5 


C PY 

$d5 

[ lt-SX ] 

Confronta con punt. per tasto attua. 

c658: 

f0 

07 


beq 

* $c661 


Se uguale ripeti controllo 

c65a : 

aO 

10 


ldy 

#$10 


Contatore ritardo rip. tasto premuto 
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c65c: 8c 24 Oa sty $0a24 

c65f : dO 36 bne * $c697 

c661 : 29 7f and #$7f 

c663: 2c 22 Oa bit $0a22 

c666: 30 16 bmi * $c67e 

c668: 70 5a bvs * $c6c4 

c66a: c9 7f cmp #$7f 

c66c: fO 29 beq * $c697 

c66e: c9 14 cmp #$14 

c670: fO Oc beq * $c67e 

c672: c9 20 cmp #$20 

c674: fO 08 beq * $c67e 

c676: c9 ld cmp #$ld 

c678: fO 04 beq * $c67e 

c67a: c9 11 cmp #$11 

c67c: dO 46 bne * $c6c4 

c67e: ac 24 Oa ldy $0a24 

c681 : fO 05 beq * $c688 

c683: ce 24 Oa dee $0a24 

c686: dO 3c bne * $c6c4 

c688: ce 23 Oa dee $0a23 

c68b: dO 37 bne * $c6c4 

c68d: aO 04 , ldy #$04 

c68f: 8c 23 Oa sty $0a23 

c692: a4 dO ldy $d0 [ ndx ] 

c694: 88 dey 

c695: 10 2d bpl * $c6c4 

c697: 4e 25 Oa lsr $0a25 

c69a: a4 d4 ldy $d4 [ sfdx ] 

c69c: 84 d5 sty $d5 [ ltsx ] 

c69e: eO f£ cpx #$ff 

c6a0: fO 22 beq * $c6c4 

c6a2: a9 00 Ida #$00 

c6a4: 8d 21 Oa sta $0a21 

c6a7: 8a txa 

c6a8: a6 d3 ldx $d3 [ shflag ] 

c6aa: 6c 3c 03 jmp ($033c) 

c6ad : a2 09 ldx #$09 

c6af: dd dd c6 cmp * $c6dd,x 

c6b2: fO 16 beq * $c6ca 

c6b4: ca dex 

c6b5: 10 f8 bpl * $c6af 

c6b7: a6 dO ldx $d0 [ ndx ] 

c6b9: ec 20 Oa cpx $0a20 

c6bc: bO 06 bes * $c6c4 

c6be: 9d 4a 03 sta $034a,x 

c6cl: e8 inx 

c6c2: 86 dO stx $d0 [ ndx ] 

c6c4: a9 7£ Ida #$7f 

c6c6: 8d 00 de sta * $dc00 

c6c9: 60 rts 


INIZIALIZZA BUFFER DI TASTIERA 


Inizializza cont. con $10 

Vai alla rout. di tasto premuto 

Mask out bit 7 

Controllo punt. tasto premuto 
Tutti i tasti abilitati 
Continuazione rout. prec. 

Controllo validità' carattere 

Positivo, e' letto il vai.di default 

Contr. tasto DEL 

Se pos. ripetere 

Controllo per barra spaziatrice 

Se positivo ripeti valut. 

Controllo per CRSR-destro 
Se positivo ripeti 
Controllo per CRSR-basso 
Se positivo ripeti valutaz. 

Carica cont. per ritardo ripet. 

Se cont.=0 salta 
Contatore -1 

Controllo per diverso da 0 

Decrem-1 velocita' contatore 

Controllo per diverso da 0 

Calcolo velocita' tasto premuto 

Reinizializza con $04 

Metti in Y vai.salto buffer coda tas 

Decrementa buffer di 1 

Se era maggiore esegui RTS 

Dividi ultimo car. per 2 

Copia visual, a inizio tav. decod 

Carica Y con punt. attuale tasto 

Controlla se era un carattere 

Se pos.leggi vai. di default e RTS 

Esegui reset del punt. pausa/Ctrl-s 

Ricerca carattere valido 

Copia cod caratt. in A 

Carica in X SHIFT-FLAG 

Vai alla routine KEY 

Contatore di ciclo 

Confronta A con codice tasto 

Rilevato tastofunzione, elab. 

Decrementa cont. ciclo di 1 

Esecuz. ciclo per tutti i confronti 

Indice coda buffer tastiera 

Confronto con max. dimensione 

Se e' max. dim. salta 

Immetti car. in buffer tastiera 

Incr. dì 1 coda buffer tastiera 

Imm. in X 1 carattere 

Controllo matrice tastiera 

Immag. valore di default 


c6ca: bd 00 10 Ida $1000,x Carica in A lunghezza da rout. KEY 

c6cd: 85 di sta $dl [ kyndx ] Immag. in KEY cont. carattere 

c6cf: a9 00 Ida #$00 La posizione della routine KEY nell' 

c6dl: ca dex intera tavola e' determinata quando 

c6d2: 30 06 bmi * $c6da tutte le lunghezze sono state aggiu. 

c6d4: 18 eie Clear del Carry per somma 




Il Sistema Operativo del Commodore 128 


Pag. - 48 


c6d5 : 

7d 

00 10 

adc 

$1000,x 


Aggiungi la 

lunghezza di KEY 

c6d8 : 

90 

f 7 

bcc 

* $c6dl 


Se nessun Overflow continua 

c6da : 

85 

d2 

sta 

$d2 

keyidx ] 

Immagazzina 

il puntatore 

c6dc: 

60 


rts 






CODICI DEI TASTI FUNZIONE 


c6dd: 

85 

89 



($8985,) 


c6df : 

86 

8a 



($8a8 6) 


c6el : 

87 

8b 



($ 8b87 ) 


c6e3 : 

88 

8c 



($8c88) 


c6e5 : 

83 

84 



($8483) 


CURSORE IN MODO 

FLASH 


c6e7 : 

24 

d7 


bit 

$d7 | 

mode ] 

c6e9 : 

30 

41 


bmi 

* $c72c 


c6eb: 

ad 

27 

0a 

Ida 

$0a27 


c6ee : 

d0 

3c 


bne 

* $c72c 


c6 f 0 : 

ce 

28 

Oa 

dee 

$0a28 


c6f 3: 

d0 

37 


bne 

* $c72c 


c6f 5 : 

ad 

26 

Oa 

Ida 

$0a26 


c6f 8 : 

29 

cO 


and 

#$c0 


c6f a : 

c9 

cO 


emp 

#$c0 


c6f c: 

f0 

2e 


beq 

* $c72c 


c6 f e : 

a9 

14 


Ida 

#$14 


c700 : 

8d 

28 

Oa 

sta 

$0a28 


c70 3 : 

a4 

ec 


ldy 

$ec | 

! pntr ] 

c705 : 

ae 

2a 

Oa 

ldx 

$ 0a2a 


c708 : 

bl 

eO 


Ida 

($e0),y | 

; pnt ] 

c70a : 

2c 

26 

Oa 

bit 

$0a26 


c70d: 

30 

10 


bmi 

* $c71f 


c70f : 

8d 

29 

Oa 

sta 

$0a29 


c712 : 

20 

le 

cl 

jsr 

* $cl7c 


c715 : 

bl 

e2 


Ida 

($e2),y | 

^ user ) 

c717 : 

8d 

2a 

Oa 

sta 

$0a2a 


c71a : 

a6 

fi 


ldx 

$f 1 1 

^ color ] 

c7 le : 

ad 

29 

Oa 

Ida 

$0a29 


c71 f : 

49 

80 


eor 

#$80 


c7 21 : 

20 

40 

cc 

jsr 

* $cc40 


c7 24 : 

ad 

26 

Oa 

Ida 

$0a26 


c727 : 

49 

80 


eor 

#$80 


c729 : 

8d 

26 

Oa 

sta 

$ 0a2 6 


c72c: 

60 



rts 



INGRESSO 

ROUTINE BSOUT 


c72d: 

85 

ef 


sta 

$ef 

[ datax ] 

c72f : 

48 



pha 



c730: 

8a 



txa 



c7 31 : 

48 



pha 



c7 32 : 

98 



tya 



c7 3 3 : 

48 



pha 



c7 34 : 

ad 

21 

Oa 

Ida 

$0a21 


c73 7 : 

d0 

fb 


bne 

* $c734 


c7 3 9 : 

85 

d6 


sta 

$d6 

[ ersm ] 

c7 3b: 

a9 

c3 


Ida 

#$c3 


c7 3d: 

48 



pha 



c7 3e : 

a9 

0b 


Ida 

#$0b 



FI 

F2 

F3 

F4 

F5 

F6 

F7 

F8 

F9 

FIO 


Controllo modo 40/80 colonne 
Se 80 colonne fine 
Carica modo cursore VIC 
Se disabilit. fine 
Decrementa contatore di FLASH 
Se diverso da 0 fine 
Carica cursore VIC 
Mask out bits 0-5 
Controllo cursore 
Se e ' OFF fine 

Metti il contatore cursore FLASH del 
VIC = 20 ($14) 

Metti in Y attuale colonna curs. 

Carica alla pos. del cursore col. 

Carattere attuale colonna 

Controllo modo cursore VIC 

Ancora carattere normale 

Car.in pos. curs. prima di FLASH 

Fissa ind. RAM colore 

Metti colore in pos. cursore 

Salva il colore prima di FLASH 

Carica in X cod. car.colore 

Carattere in pos.curs.prima del FLASH 

Inverti bit negativo 

Salva carattere e colore 

Carica modo cursore VIC 

Condizione di FLASH negata 

Salva di nuovo 


Salva car.da stamp. in Pag. 0 
Salva cont. di A in STACK 
Salva X in STACK 
Continua 

Salva Y in stack 
Continua 

Contr.contenuti flag pausa in Pag. 0 

Attendi fino a FLAG=0 

Esegui CLEAR flag input/get 

Carica Byte HI 

Immetti in Stack 

Carica Byte basso 
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CIAO: 

48 



pha 



c741 : 

a4 

ec 


ldy 

$ec I 

; pntr ] 

c7 4 3 : 

a5 

ef 


Ida 

$ef [ 

' datax ] 

c745 : 

c9 

Od 


emp 

#$0d 


c74 7 : 

fO 

26 


beq 

* $c76f 


c74 9 : 

c9 

8d 


emp 

#$8d 


c74b: 

fO 

22 


beq 

* $c76f 


c74d: 

a6 

fO 


ldx 

$f0 | 

’ lstchr 

c7 4 f : 

eO 

lb 


cpx 

#$lb 


c7 51 : 

dO 

03 


bne 

* $c756 


c753 : 

4c 

be 

c9 

jmp 

* $c9be 


c 7 5 6 : 

aa 



tax 



c757 : 

10 

03 


bpl 

* $c75c 


c7 5 9 : 

4c 

02 

c8 

jmp 

* $c802 


c75c : 

c9 

20 


emp 

#$20 


c75e : 

90 

56 


bcc 

* $c7b6 


c 7 6 0 : 

c9 

60 


emp 

#$60 


c 762: 

90 

03 


bcc 

* $c767 


c764 : 

29 

df 


and 

#$df 


c766 : 

2c 

29 

3f 

bit 

$3f 29 


c769 : 

20 

ff 

c2 

jsr 

* $c2ff 


c76c : 

4c 

22 

c3 

jmp 

* $c322 


c76f : 

20 

c3 

cb 

jsr 

* $cbc3 


c77 2 : 

e8 



inx 



c773 : 

20 

85 

cb 

jsr 

* $cb85 


c776 : 

a4 

e6 


ldy 

$e6 

[ self ] 

c778 : 

84 

ec 


sty 

$ec 

t pntr ] 

ella: 

20 

63 

c3 

jsr 

* $c363 


c7 7d: 

a5 

fi 


Ida 

$f 1 

[ color ] 

dii: 

29 

cf 


and 

# $cf 


c781 : 

85 

fi 


sta 

$fl 

[ color ] 

c783 : 

a9 

00 


Ida 

#$00 


c785 : 

85 

f 5 


sta 

$f 5 

[ insrt ] 

c 7 8 7 : 

85 

f 3 


sta 

$f 3 

ì rvs ] 

c78 9 : 

85 

f 4 


sta 

$f 4 

[ qtsw ] 

c78b : 

60 



rts 




Immetti in Stack 

Metti in Y attuale colonna cursore 
Immag.temp. carattere da stamp. 
Controllo se e' Rit. Carr. 

Se pos. esegui 

Controllo se e' SHIFT Rit. Carr. 

Se positivo esegui 

Valore del precedente carattere 

Se il carattere era una ESCAPE esegui 

la manipolazione della sequenza di 

ESCAPE saltando a $C756 

Carat.davis. in X 

Controllo se e ' da 0-127 

Se neg = ASCII esteso 

Controllo se car.< Blank 

Se pos. valuta codici controllo 

E' una lettera 

Se pos. visualizza 

Mask out bit5 

Vai a $C769 

Controllo apici 

Vis. carattere 

Cerca la fine linea input 

Incrementa di 1 

Clear bit di overflow 

Carica bordo sinistro in Y 

Immag. attuale posiz. cursore 

Esegui un linefeed 

Carica in A codice col.car 

Metti in OFF reverse e flash 

Immag. codice colore 

Carica A con 0 

Esegui un clear dei BITS 

Flag di Reverse 

Flag apici 


CODICI DI CONTROLLO 


c78c : 

02 

07 

($0702) 

2=sottolineatura 

7=segnale acustico 

c78e: 

09 

Oa 

($0a09) 

9=tabulatore 

A=linefeed 

c790 : 

Ob 

Oc 

($0c0b) 

B=Shift-l/CBM 

C=Shift-unlok/CBM 

c79 2 : 

Oe 

Of 

($0fOe) 

E=minuscolo 

F=Flash on 

c794 : 

11 

12 

($1211) 

ll=cursor up 

12=Reverse on 

c796 : 

13 

14 

($1413) 

13=home 

14=delete 

c798 : 

18 

ld 

($Idi8) 

18=tab 

lD=Cursor a destra 


INDIRIZZI DELLE ROUTINES CHE ESEGUONO I CODICI DI CUI SOPRA 


c79a: 

c6 

c8 

($c8c6) 

Sottolineatura 

c79c : 

8d 

c9 

($c98d) 

Tabulatore 

c79e: 

4e 

c9 

($c94e) 

Segnale acustico (BELL) 

c7a0 : 

bO 

c9 

( $c9b0) 

Linefeed 

c7a2 : 

a5 

c8 

($c8a5) 

Disabilita SHIFT/CBM 

c7a4 : 

ab 

c8 

($c8ab) 

Abilita SHIFT/CBM 

c7a6 : 

7f 

c8 

($c87f) 

Minuscole 

c7a8 : 

d4 

c8 

($c8d4) 

Flash on 

c7aa : 

59 

c8 

($c859 ) 

Cursor UP 

c7ac: 

cl 

c8 

($c8cl ) 

Reverse ON 
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c7ae : 

b2 

c8 



($c8b2) 

c7b0 : 

la 

c9 



($c91a) 

c7b2 : 

60 

c9 



($c960 ) 

c7b4 : 

53 

c8 



($c853) 

ESECUZIONE CODICI DI 

CONTROLLO 

c7b6 : 

6c 

34 

03 

jmp 

($0334) 

c7b9 : 

c 9 

lb 


emp 

#$lb 

c7bb : 

fO 

38 


beq 

* $c7f5 

c7bd : 

a6 

f 5 


ldx 

$f5 [ insrt ] 

c7bf : 

d0 

08 


bne 

* $c7c9 

c7cl : 

c9 

14 


emp 

#$14 

c7c3 : 

f0 

Ob 


beq 

* $c7d0 

c7c5 : 

a6 

f 4 


ldx 

$f4 [ qtsw ] 

c7c7 : 

f 0 

07 


beq 

* $c7d0 

c7c9 : 

a2 

00 


ldx 

#$00 

c7cb : 

86 

ef 


stx 

$ef [ datax ] 

eie Ai 

4c 

26 

c3 

jmp 

* $c326 

c7d0 : 

a2 

Od 


ldx 

#$0d 

c7d2 : 

dd 

8c 

c7 

emp 

* $c78c,x 

c7d5 : 

fO 

u 


beq 

* $c7f6 

c7d7 : 

ca 



dex 


c7d8 : 

10 

f 8 


bpl 

* $c7d2 

c7da : 

a2 

Of 


ldx 

#$0f 

c7dc: 

dd 

4c 

ce 

emp 

* $ce4c,x 

c7df : 

fO 

04 


beq 

* $c7e5 

c7el : 

ca 



dex 


c7e2 : 

10 

f 8 


bpl 

* $c7dc 

c7e4 : 

60 



rts 


FISSA 

I COLORI 

IN MODO 40 COLONNE 

c7e5 : 

24 

d7 


bit 

$d7 [ mode ] 

cieli 

30 

03 


bmi 

* $c7ec 

c7e9 : 

86 

fi 


stx 

$fl [ color ] 

c7eb : 

60 



rts 


FISSA 

I COLORI 

IN MODO 80 COLONNE 

deci 

a5 

fi 


Ida 

$fl [ color ] 

dee i 

29 

fO 


and 

#$f0 

c7f 0 : 

ld 

5c 

ce 

ora 

* $ce5c,x 

c7f3: 

85 

fi 


sta 

$fl [ color ] 

c7f 5: 

60 



rts 


ESECUZIONE CODICI DI CONTROLLO 

c7f 6: 

8a 



txa 


dii i 

Oa 



asl 

a 

c7f 8 : 

aa 



tax 


c7f 9 : 

bd 

9b 

c7 

Ida 

* $c79b,x 

c7f c : 

48 



pha 


c7 f d : 

bd 

9 a 

c7 

Ida 

* $c79a,x 

c800 : 

48 



pha 


c801 : 

60 



rts 



CONTROLLO PER ESTENSIONE ASCII 


c802: 6c 36 03 jmp ($0336) 


Home 

Delete 

Tabulatore (fissa/cancella) 
Cursore a destra 


Vettore uscita carattere 
Contr. se e' un ESCAPE 
Se pos. fine 

Contr. se fissato modo inserim 
Pos. visual, carat. in REVERSE 
Controllo per DELETE 
Esegui 

Contr. flag modo apici inserito 
Se posit. vis. caratt. in REVERSE 
Eseg. CLEAR su ultimo caratt. vis. 
Continua 

Vis. caratt. in REVERSE 

Car. X come cont. cod. tontrollo 

Confronta con tavola 

Se trovato esegui 

Decrem. di 1 il cont. 

Confronta con succ. valore 

Esegui il confronto con i 16 codici 

colore per ev. cambiamento 

Se trovato salta 

Decrem. cont. di 1 

Confr. con valore succ. 


Controllo modo 40/80 colonne 
Se 80 colonne salta 

Immag. codice colore per vis. caratt. 


Metti in A cod. colore per vis.caratt. 
Mask out del NIBBLE LO (bits 0-3) 
Esegui OR con tavola cod. colore 
Immag. codice colore per vis. caratt. 


Punt. in A e poi fine 
Moltiplica per 2 

Deve essere trovato valore di 16 bit 

Car.byte basso di indir, partenza 

Immetti in A 

Come sopra per Byte HI 

Continua 


Vettore car. uscita con SHIFT 
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c805 : 

29 

7 f 


and 

#$7f 


c807 : 

c9 

20 


emp 

#$20 


c809 : 

90 

09 


bcc 

* $c814 


c80b : 

c9 

7 f 


emp 

#$7f 


c80d : 

d0 

02 


bne 

* $c811 


c80f : 

a9 

5e 


Ida 

#$5e 


c811 : 

4c 

20 

c3 

jmp 

* $c320 


c814 : 

a6 

f 4 


ldx 

$f 4 [ 

qtsw ] 

c816 : 

f0 

05 


beq 

* $c81d 


c818 : 

09 

40 


ora 

#$40 


c81a: 

4c 

26 

c3 

jmp 

* $c326 


c8 ld : 

c9 

14 


emp 

#$14 


c81f : 

d0 

03 


bne 

* $c824 


c821: 

4c 

e3 

c8 

jmp 

* $c8e3 


c824 : 

a6 

f 5 


ldx 

$f 5 [ 

insrt ] 

c826: 

d0 

fO 


bne 

* $c818 


c828 : 

c9 

11 


emp 

#$11 


c82a: 

f0 

3b 


beq 

* $c867 


c82c: 

c9 

ld 


emp 

#$ld 


c82e : 

f0 

45 


beq 

* $c875 


c83 0 : 

c9 

0e 


emp 

#$0e 


c8 3 2 : 

fO 

5e 


beq 

* $c892 


c834 : 

c9 

12 


emp 

#$12 


c8 3 6 : 

d0 

03 


bne 

* $c83b 


c838 : 

4c 

bf 

c8 

jmp 

* $c8bf 


c83b: 

c9 

02 


emp 

#$02 


c8 3d: 

d0 

03 


bne 

* $c842 


c83f : 

4c 

ce 

c8 

jmp 

* $c8ce 


c842 : 

c9 

0f 


emp 

#$0f 


c844 : 

d0 

03 


bne 

* $c849 


c8 46 : 

4c 

de 

c8 

jmp 

* $c8dc 


c84 9 : 

c9 

13 


emp 

#$13 


c84b: 

d0 

03 


bne 

* $c850 


c84d : 

4c 

42 

cl 

jmp 

* $cl42 


c85 0 : 

09 

80 


ora 

#$80 


c852 : 

dO 

86 


bne 

* $c7da 


c854 : 

20 

ed 

cb 

jsr 

* $cbed 


c857 : 

bO 

04 


bes 

* $c85d 


c859 : 

60 



rts 



CURSORE IN BASSO 



c85a : 

20 

63 

c3 

jsr 

* $c363 


c8 5d : 

20 

74 

cb 

jsr 

* $cb7 4 


c860 : 

bO 

03 


bes 

* $c865 


c862: 

38 



sec 



c86 3 : 

66 

e8 


ror 

$e8 

[ lsxp ] 

c865 : 

18 



eie 



C866: 

60 



rts 



CURSORE 

IN ALTO 




c86 7 : 

a6 

e5 


ldx 

$e5 

[ sctop ] 

c86 9 : 

e4 

eb 


cpx 

$eb | 

[ tblx ] 

c86b : 

b0 

f 9 


bes 

* $c866 


c8 6d: 

20 

5d 

c8 

jsr 

* $c85d 


c870 : 

c6 

eb 


dee 

$eb 

[ tblx J 

c872 : 

4c 

5c 

cl 

jmp 

* $cl5c 


c87 5 : 

20 

00 

cc 

jsr 

* $cc00 


c87 8 : 

bO 

ec 


bes 

* $c866 



Mask out bit 7 
Confronta con car. SPAZIO 
Contr. se minore di 32 
Contr. se codice ASCII 
Se neg. salta 
Codice ASCII 
Visualizzazione 
Carica flag modo apici 
Salta se non inserito 
Fissa bit 6 

Vis. come caratt. REVERSE 
Contr. se e ' un car. INSERT 
Se negativo salta 
Se positivo esegui 
Carica flag modo inserim. 

Se pos. procedi come se con apici 

Confronta per CURSOR UP 

Salta se CURSOR UP e' in ON 

Confr. se cursor a sinistra 

Se pos. esegui 

Confronta se maiuscolo 

Esegui 

Contr. att. modo REVERSE 

Se neg. salta 

Clear modo RVS 

Contr. att. sottolineatura 

Se neg. salta 

Fissa modo sottoli. 

Contr. FLASH 

Se neg. Salta 

Clear del modo FLASH 

Contr. per CLR/HOME 

Se neg. salta 

Esegui un CLEAR finestra 

Clear bit 7 

Vai a valutare se e' un colore 
Sposta di 1 il cursore a destra 
Inizio nuova linea 


Prep. Linefeed 
Contr. bit overflow-1ine 
Trovata linea troppo lunga 
Fissa il carry 

Ruota il carry nella linea di inp.iniz 
Clear del carry 


Carica in X bordo sup. finestra 
Confronta con linea att. curs. 
Contr. se minore o = 

Fissa linea di status 
Decr. di 1 att. linea curs. 
Determ. ind. inizio att. linea 
Cursore a sinistra 
Cursore immobile 
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c87a 

dO 

e9 


bne 

* $c865 


c87c 

e6 

eb 


ine 

$eb 

[ tblx ] 

c87e 

d0 

ed 


bne 

* $c86d 


c880 

24 

d7 


bit 

$d7 

[ mode ] 

c882 

30 

07 


bmi 

* $c88b 


c884 

ad 

2c 

0a 

Ida 

$0a2c 


c887 

09 

02 


ora 

#$02 


c8 8 9 

dO 

10 


bne 

* $c89b 


c88b 

a5 

fi 


Ida 

$fl 

[ color ] 

c88d 

09 

80 


ora 

#$80 


c88f 

85 

fi 


sta 

$fl 

[ color J 

c8 91 

60 



rts 



CONTROLLO TASTI 

SHIFT & COMMODORE 

c892 

24 

d7 


bit 

$d7 

[ mode ] 

c894 

30 

09 


bmi 

* $c89f 


c896 

ad 

2c 

0a 

Ida 

$0a2c 


c899 

29 

fd 


and 

#$fd 


c89b 

8d 

2c 

0a 

sta 

$0a2c 


c89e 

60 



rts 



C.S. 

PER 

80 

COLONNE 



c89f 

a5 

fi 


Ida 

$fl 

[ color ] 

c8al 

29 

7 f 


and 

#$7f 


c8a3 

85 

fi 


sta 

$fl 

[ color ] 

c8a5 

60 



rts 



ABILITAZIONE/DISABILITAZIONE 

TASTI C.S. 

c8a6 

a9 

80 


Ida 

#$80 


c8a8 

05 

f 7 


ora 

$f 7 

[ locks ] 

c8aa 

30 

04 


bmi 

* $c8b0 


c8ac 

a9 

7 f 


Ida 

#$7f 


c8ae 

25 

f 7 


and 

$f 7 

[ locks ] 

c8b0 

85 

f 7 


sta 

$f 7 

[ locks ] 

c8b2 

60 



rts 



CONTROLLO TASTI 

HOME 


c8b3 

a5 

fO 


Ida 

$f 0 

[ lstchr ] 

c8b5 

c9 

13 


emp 

#$13 


c8b7 

d0 

03 


bne 

* $c8bc 


c8b9 

20 

24 

ca 

jsr 

* $ca24 


c8bc 

4c 

50 

cl 

jmp 

* $cl50 


c8bf 

a9 

00 


Ida 

#$00 


c8cl 

2c 

a9 

80 

bit 

$80a9 


c8c4 

85 

f 3 


sta 

$f 3 

( rvs ] 

c8c6 

60 



rts 



ATTIVAZIONE 

SOTTOLINEATURA 


c8c7 

a5 

fi 


Ida 

$f 1 

[ color ] 

c8c9 

09 

20 


ora 

#$20 


c8cb 

85 

fi 


sta 

$fl 

[ color ] 

c8cd 

60 



rts 




Cursore mosso ma non su nuova linea 
Increti) di 1 pos. curs. 

Salto incond. a indirizzo 
Controllo modo 40/80 col. 

Salta se 80 colonne 

Carica ind. base rout. CHARROM 

Fissa bit' 0 e 1 

Salto incondiz. a ind. 

Metti in A cod. col. carati. 

Seleziona altro set caratt. 

Immag. cod. colo, per caratt. da vis. 


Controllo modo 40/80 colonne 
Salta se 80 colonne 
Carica ind. base rout. CHARROM 
Esegui un clear su bits 0 e 1 
Immag. come nuovi ind. base 


Car. codice col. per vis. caratt. in A 
Clear bit 7 

Fissa cod. colore per vis. caratt. 


Fissa bit 7 

Esegui OR con flag registr. 
Salto incond. a ind. 

Clear su bit 7 
Abilitat il flag 
Salva il valore 


Carica si A ult. caratt. 

Contr. se HOME 

Se neg. fine routine 

Cancella finestra 

Vai a rout. di CURSOR HOME 

Carica A con 0, clear modo RVS 

Salta a $C8C4 

Immag. in A il flag 


Carica in A cod. col. per caratt. 
Fissa bit 6 per sottolin. 

Immag. cod. colore caratt. 


DISATTIVAZIONE SOTTOLINEATURA 
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c8ce: 

a5 

fi 


Ida 

$fl 

[ 

color ] 

c8d0 : 

29 

df 


and 

#$df 



c8d2 : 

85 

fi 


sta 

$fl 

[ 

color ] 

c8d4 : 

60 



rts 




ATTIVAZIONE 

MODO FLASH 



c8d5 : 

a5 

fi 


Ida 

Sfl 

[ 

color ] 

c8d7 : 

09 

10 


ora 

#$10 



c8d9: 

85 

fi 


sta 

Sfl 

[ 

color ] 

c8db : 

60 



rts 




DISATTIVAZIONE 

MODO 

FLASH 



c8dc: 

a5 

fi 


Ida 

$fl 

[ 

color ] 

c8de : 

29 

ef 


and 

#$ef 



c8e0 : 

85 

fi 


sta 

$fl 

[ 

color ] 

c8e2 : 

60 



rts 




ABILITA MODO INSERT 




c8e3 : 

20 

le 

cc 

jsr 

* $ccle 



c8e6 : 

20 

c3 

cb 

jsr 

* $cbc3 



c8e9 : 

e4 

df 


cpx 

$df 

[■ 

keytmp ] 

c8eb : 

d0 

02 


bne 

* $c8ef 



c8ed: 

c4 

de 


cpy 

$de 

[ 

keybnk ) 

c8ef : 

90 

21 


bcc 

* $c912 



c8f 1 : 

20 

3e 

c3 

jsr 

* $c33e 



c8f 4: 

bO 

22 


bcs 

* $c918 



c8f 6 : 

20 

00 

cc 

jsr 

* $cc00 



c8f 9: 

20 

58 

cb 

jsr 

* $cb58 



c8f c : 

20 

ed 

cb 

jsr 

* $cbed 



c8ff : 

20 

32 

cc 

jsr 

* $cc32 



c902: 

20 

00 

cc 

jsr 

* $cc00 



c905 : 

a6 

eb 


ldx 

$eb 

[ 

tblx ] 

c907 : 

e4 

df 


cpx 

$df 

[ 

keytmp ] 

c90 9 : 

d0 

eb 


bne 

* $c8f6 



c90b : 

c4 

de 


cpy 

$de 

[ 

keybnk ] 

c9 Od : 

d0 

e7 


bne 

* $c8f6 



c90f : 

20 

27 

cc 

jsr 

* $cc2 7 



c912 : 

e6 

f 5 


ine 

$f 5 

[ 

insrt ] 

c914 : 

d0 

02 


bne 

* $c918 



c916 : 

c6 

f 5 


dee 

$f 5 

[ 

insrt ] 

c918 : 

4c 

32 

c9 

jmp 

* $c932 



c9 lb : 

20 

75 

c8 

jsr 

* $c875 



c91e : 

20 

le 

cc 

jsr 

* $ccle 



c921 : 

bO 

0f 


bcs 

* $c932 



c92 3 : 

c4 

e7 


cpy 

$e7 

[ 

scrt ] 

c92 5 : 

90 

16 


bcc 

* $c93d 



c927 : 

a6 

eb 


ldx 

$eb 

[ 

tblx ] 

c929 : 

e8 



inx 




c92a : 

20 

76 

cb 

jsr 

* $cb76 



c92d : 

bO 

Oe 


bcs 

* $c93d 



c92f : 

20 

27 

cc 

jsr 

* $cc2 7 



c932 : 

a5 

de 


Ida 

$de 

[ 

keybnk ] 

c934 : 

85 

ec 


sta 

$ec 

[ 

pntr ] 

c936 : 

a5 

df 


Ida 

$df 

1 

keytmp ] 

c9 3 8 : 

85 

eb 


sta 

$eb 

1 

tblx ] 

c9 3a : 

4c 

5c 

cl 

jmp 

* $cl5c 



c9 3d : 

20 

ed 

cb 

jsr 

* $cbed 




Vedi sopra 

Esegui un clear su bit 6 per sott. 
Vedi sopra 


Vedi sopra 

Fissa bit 4 per modo flash attivo 
Vedi sopra 


Vedi sopra 

Esegui un clear su bit 4 dis.modo flas 
Vedi sopra 


Copia coord. cursore 
Cerca fine linea input 
Confr. linea con linea curs. 

Se e' cambiata vai indir. 

Confr. col. con att. colonna 
Se minore vai ad ind. 

Cursore a fine linea 
Non esec. scroi1 
Cursore una pos a sinistra 
Pos. curs. rei. car. e col. 

Curs. un passo a destra 
Vis. carattere 
Cursore un passo a sin. 

Carica su X att. linea cursore 
Confronta con partenza 
Copia succ. carattere 
Confr. col. con col. di part. 

Se no trovata continua 

Ins. SPAZIO a att. pos. curs. 

Incr. cont. per inserim. 

Se div. da 0 salta 

Decr. di 1 per reset modo inser. 

Reset vecchia pos. cursore 

Cursore a sinistra 

Copia coord. cursore 

Non esec. cursore a sinistra 

Confronto per bordo sin. fin. 

Bordo non trovato 

Metti in X att. linea cursore 

Incrementa di 1 linea 

Controllo bit overflow 

Risulta linea seguente 

Caratt. SPAZIO in att. pos. 

Carica A colonna 

Immag. att. pos. colonna 

Carica in A linea 

Scrivi att. linea cursore 

Determina ind. iniz. linea 

Cursore un passo a destra 
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c940 : 

20 

58 

cb 

jsr 

* $cb58 


c9 4 3 : 

20 

00 

cc 

jsr 

* $cc00 


c9 46 : 

20 

32 

cc 

jsr 

* $cc3 2 


c9 49 : 

20 

ed 

cb 

jsr 

* $cbed 


c94c: 

4c 

23 

c9 

jmp 

* $c92 3 


c94f : 

a4 

ec 


ldy 

Sec 

[ pntr ] 

c951 : 

c 8 



iny 



c952 : 

c4 

e7 


cpy 

$e7 

[ scrt ] 

c954 : 

b0 

06 


bcs 

* $c95c 


c956 : 

20 

6c 

c9 

jsr 

* $c96c 


c95 9 : 

fO 

f 6 


beq 

* $c951 


c95b: 

2c 

a4 

e7 

bit 

* $e7a4 


c95e: 

84 

ec 


sty 

Sec 

[ pntr ] 

c960 : 

60 



rts 



ATTIVA/DISATTIVA TABULATORE 


c961 : 

a4 

ec 


ldy 

Sec 

[ pntr ] 

c963 : 

20 

6c 

c9 

jsr 

* Sc96c 


c966 : 

45 

da 


eor 

Sda 

[ keysiz ] 

c968 : 

9d 

54 

03 

sta 

S0354,x 


c96b : 

60 



rts 



DETERMINA POSIZIONE 

TABULATORE 

c96c : 

98 



tya 



c96d: 

29 

07 


and 

#$07 


c96f : 

aa 



tax 



c97 0 : 

bd 

6c 

ce 

Ida 

* $ce6c, 

- x 

c97 3 : 

85 

da 


sta 

Sda 

[ keysiz ] 

c9 7 5 : 

98 



tya 



c976: 

4a 



Isr 

a 


c977 : 

4a 



lsr 

a 


c978 : 

4a 



lsr 

a 


c979 : 

aa 



tax 



c97a : 

bd 

54 

03 

Ida 

$0354,x 


c97d: 

24 

da 


bit 

Sda 

[ keysiz ] 

c97f : 

60 



rts 



ESEGUI UN CLEAR 

SU TUTTI I TABULATORI 

c980 : 

a9 

00 


Ida 

#$00 


c982 : 

2c 

a9 

80 

bit 

$80a9 


c985 : 

a2 

09 


ldx 

#$09 


c987 : 

9d 

54 

03 

sta 

$0354,x 


c98a : 

ca 



dex 



c98b : 

10 

fa 


bpl 

* $c987 


c98d : 

60 



rts 



ATTIVAZIONE 

BEEP 



c98e 

24 

f 9 


bit 

$f 9 

( beeper ] 

c990 

30 

fb 


bmi 

* $c98d 


c992 

a-9 

15 


Ida 

#$15 


c994 

8d 

18 

d4 

sta 

* $d418 


c 997 

a0 

09 


ldy 

#$09 


c999 

a2 

00 


ldx 

#$00 


c99b 

8c 

05 

d4 

sty 

* $d405 


c99e 

8e 

06 

d4 

stx 

* $d406 


c9al 

a9 

30 


Ida 

#$30 



Caratt. e colo, cursore 
Cursore un passo a sinistra 
Caratt. alla pos. del cursore 
Cursore indietro a destra 
Sposta linea a curs. 

Metti in Y att. col. curs. 

Incr. punt. colonna 

Confronta bordo destro finestra 

Non ci sono piu' tabul. disp. 

Vai a succ. pos. tab. 

Curs. e' a pos. tabulatore 
Vai a $C95E 

Metti in Y bordo destro finestra 


Metti in Y col. att. cursore 
Byte del tabulatore 
Esegui rov. bit tabul. 
Immagazzina in A 


Metti in A colonna 

Mask out bit 4-7 

Bit prec in X come punt. 

Carica in A potenza di 2 

Immetti in $DA 

Colonna di nuovo in A 

Questi tre passi servono a spostare 

per 3 volte a destra A. Poi il vai 

in INT 

Trasf. A in X come punt. 

Carica byte di tabulaz. 

Contr. fiss. ottavo tabul. 


Carica A con 0 per op. di CLEAR 
Viene eseg. un salto a $C985. Viene 
controllato che ottava pos. e' un tab 
e tutte le pos. tab. sono rilev. 

Il contatore viene decr. di 1 e viene 
eseguito un salto se NN 


Controllo flag acustico (BEEP) 

Nessun BEEP 

Metti a 15 (vai. max) il volume del 
SID 

Carica costante di ATTACK/DECAY 
Carica X costante di SUSTAIN/RELEASE 
Immetti i valori nei corrispondenti 
registri per voce 1 
Definisce byte HI di freq. 
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c9a3 : 

8d 

01 

d4 

sta 

* $d401 


Immag. per voce 1 

c9a6 : 

a9 

20 


Ida 

#$20 


Seleziona dente di sega 

c9a8 : 

8d 

04 

d4 

sta 

* $d404 


Scrivi q.s. in SID 

c9ab : 

a9 

21 


Ida 

#$21 


Iniziai, suono ottenuto mettendo a 

c9ad : 

8d 

04 

d4 

sta 

* $d404 


uno il bit 0 

c9b0 : 

60 



rts 




CONTROLLO CURSORE 




c9bl : 

a5 

ec 


Ida 

$ec [ 

pntr ] 

Metti in A att. col. curs. 

c9b3 : 

48 



pha 



Salva in A att. colonna 

c9b4 : 

20 

c3 

cb 

jsr 

* $cbc3 


Ricerca fine linea 

c9b7 : 

20 

63 

c3 

jsr 

* $c363 


Linefeed 

c9ba: 

68 



pia 



Rip. indietro att. colonna 

c9bb : 

85 

ec 


sta 

Sec [ 

pntr ] 

Immag. in A linea att. curs 

c9bd : 

60 



rts 




ESECUZIONE SEQUENZA 

DI ESCAPE 



c9be : 

6c 

38 

03 

jmp 

($0338) 


Vett. car. vis. con ESCAPE 

c9cl : 

c9 

lb 


cmp 

#$lb 


Contr. se caratt. e' ESC 

c9c3 : 

dO 

05 


bne 

* $c9ca 


Salta se altro carattere 

c9c5 : 

46 

ef 


lsr 

$ef ( 

datax ] 

Att. carat. molt. per 2 

c9c7 : 

4c 

7d 

c7 

jmp 

* $c77d 


Dis. tutte funz. speciali 

c9ca : 

29 

7 f 


and 

#$7f 


Mask out bit 7 

e 9cc : 

38 



sec 



Fissa il carry per sottraz. 

c9cd : 

e9 

40 


sbc 

#$40 


Sottrai 64 da vai. ASCII 

c9cf : 

c9 

lb 


cmp 

#$lb 


Confr. ris. con 27 

c9dl : 

b0 

0a 


bcs 

* $c9dd 


Vai a fine se car. magg. di Z 

c9d3 : 

Oa 



asl 

a 


Molt. vai. A per 2 

c9d4 : 

aa 



tax 



Metti ris. in X come punt. 

c9d5 : 

bd 

df 

c9 

Ida 

* $c9df,x 


Carica A byte HI per esec. rout. 

c9d8 : 

48 



pha 



Salva su STACK 

c9d9 : 

bd 

de 

c9 

Ida 

* $c9de,x 


Metti in STACK byte LO 

c9dc: 

48 



pha 



Vai alla rout. ind. prec. 

c9dd : 

60 



rts 





INDIRIZZI DELLE ROUTINE DI ESCAPE 


Ogni lettera o simbolo deve essere 
preceduta da ESCAPE 


c9de : 

9e 

ca 

$ca9e 

@ 

- 

Clear del cursore a fine 

c9e0 : 

ec 

ca 

$caec 

A 

- 

Attiva modo di auto insert 

c9e2 : 

15 

ca 

$cal 5 

B 

- 

Fissa parte alta schermo 

c9e4 : 

e9 

ca 

$cae9 

C 

- 

Disabilita 1 ' auto insert 

c9e6 : 

51 

ca 

$ca51 

D 

- 

Cancella linea attuale 

c9e8 : 

Oa 

cb 

$cb0a 

E 

- 

Disatttiva2ione flash 

c9ea : 

20 

cb 

$cb2 0 

F 

- 

Attivazione flash 

c9ec: 

36 

cb 

$cb36 

G 

- 

Abilitazione BEEP 

c9ee : 

39 

cb 

$cb3 9 

H 

- 

Disabilitazione BEEP 

c9 f 0 : 

3c 

ca 

$ca3c 

I 

- 

Inserisci una linea 

c9f 2 : 

bO 

cb 

$cbb0 

J 

- 

Posiz. cursore a inizio linea 

c9f 4: 

51 

cb 

$cb51 

K 

- 

Posiz. cursore a fine linea 

c9f 6: 

el 

ca 

$cael 

L 

- 

Abilita lo scrolling 

c9f 8 : 

e4 

ca 

$cae4 

M 

- 

Disabilita lo scrolling 

c9f a : 

47 

cb 

$cb4 7 

N 

- 

Disattiva modo Reverse (80 col) 

c9f c : 

le 

c7 

$c77c 

O 

- 

Modo apici, inst, RVS off 

c9f f : 

8a 

ca 

$ca8a 

P 

- 

Esegui un Clear a linea in. 
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caOO : 

75 

ca 

$ca7 5 

ca0 2: 

3e 

cb 

Scb3e 

ca04 : 

fi 

ca 

Scafi 

ca06 : 

13 

ca 

$cal 3 

ca08 : 

fd 

ca 

$caf d 

caOa : 

bb 

ca 

$cabb 

caOc: 

c9 

ca 

$cac9 

caOe : 

2b 

cd 

$cd2b 

calO : 

82 

c9 

$c982 

cal2 : 

7 f 

c9 

$c97f 


DEFINIZIONE 

DEI 

BORDI FINESTRA 

cal4 : 

18 



eie 



cal 7 : 

a6 

ec 


ldx 

Sec [ 

pntr ] 

cal 9 : 

a5 

eb 


Ida 

$eb [ 

tblx ] 

calb: 

90 

ii 


bcc 

* $ca2e 


cald: 

85 

e4 


sta 

Se4 [ 

sebot ] 

calf : 

86 

e7 


stx 

$e7 [ 

scrt ] 

ca21 : 

4c 

32 

ca 

jmp 

* $ca32 


ca24 : 

a5 

ed 


Ida 

Sed [ 

lines ] 

ca26 : 

a6 

ee 


ldx 

See [ 

columns ] 

ca28 : 

20 

ld 

ca 

jsr 

* Scald 


ca2b : 

a9 

00 


Ida 

#$00 


ca2d : 

aa 



tax 



ca2e : 

85 

e5 


sta 

$e5 [ 

sctop ] 

ca30 : 

86 

e6 


stx 

$e6 [ 

self ] 

ca32 : 

a9 

00 


Ida 

#$00 


ca34 : 

a2 

04 


ldx 

#$04 


ca36 : 

9d 

5d 

03 

sta 

$0 35d,x 


ca39 : 

ca 



dex 



ca3a : 

d0 

fa 


bne 

* $ca36 


ca3c : 

60 



rts 



INSERIMENTO 

LINEA 



ca3d : 

20 

le 

c3 

jsr 

* $c37c 


ca40 : 

20 

56 

cl 

jsr 

* $cl56 


ca43 : 

e8 



inx 



ca44 : 

20 

76 

cb 

jsr 

* Scb76 


ca47 : 

08 



php 



ca48 : 

20 

81 

cb 

jsr 

* $cb81 


ca4b : 

28 



plp 



caie : 

bO 

03 


bes 

* $ca51 


ca4e : 

38 



sec 



ca4f : 

66 

e8 


ror 

$e8 [ 

lsxp ] 

ca51 : 

60 



rts 



CANCELLA 

LINEA 

ATTUALE 


ca52 : 

20 

b5 

cb 

jsr 

* $cbb5 


ca55 : 

a5 

e5 


Ida 

$e5 [ 

sctop ] 

ca57 : 

48 



pha 



ca58 : 

a5 

eb 


Ida 

$eb [ 

tblx ] 

ca5a : 

85 

e5 


sta 

Se5 [ 

sctop ] 

ca5c : 

a5 

f 8 


Ida 

?f 8 [ 

lockst 1 

ca5e : 

48 



pha 



ca5f : 

a9 

80 


Ida 

#$80 


ca61 : 

85 

f 8 


sta 

$f 8 [ 

lockst 1 

ca63 : 

20 

b8 

c3 

jsr 

* $c3b8 



Q - Esegui un Clear a fine linea 
R - Reverse di schermo in 80 col. 

S - Block cursor 
T - Fissa il p. max di schermo 
U - Sottolineamento cursore 

V - Attivazione scroi1 up 

W - Attivazione scroi1 down 
X - Passaggio 40/80 colonne 

Y - Reset dei tabulatori (modo norm) 

Z - Esegui un clear di tutti i tabul. 


La pos. del cursore e' max. sin. 
Carica X con punt. 

Carica A con pos. tab. 

Contr. per clear di carry 
Definizione finestra 
Definizione bordo destro 
Esegui resto della routine 
Carica in A max. num. linee 
Carica in X max. num. colonne 
Definisci punto max. destro 
Punto sini. max = 0/0 
Trasf. A in X 

Con queste due istruz. viene defini, 
il bordo sinistro (p. max) 

Metti 0 in A 
Metti 4 in X 

Clear su bit di overflow line 

Decrementa cont. di 1 

Salta se non es. clear su tutti bit 


Sposta resto schermo a pos. X 
Cursore sin. determ. ind. iniz. 
Incrementa linea 
Contr. bit di overflow-line 
Salva il carry 
Controllo bit di overflow 
Rprendi il carry da STACK 
Linea cursore = linea iniz. 

Segna la vecchia o prec. linea come 
linea seguente 


Fissa ind. linea partenza 
Carica in A max finestra 
Salva sullo stack 
Carica in A att. linea cursore 
Definiscilo come max finestra 
] Salva il flag di scroll 
Immetti in stack q.s. 

Non eseguire lo scroll 
] Salva il flag di scroll 
Abilita scroll in alto 
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ca66 : 

68 



pia 



ca67: 

85 

f 8 


sta 

$f 8 [ 

lockst 1 

ca69: 

a5 

e5 


Ida 

$e5 [ 

sctop ] 

ca6b : 

85 

eb 


sta 

Seb [ 

tblx ] 

ca6d : 

68 



pia 



ca6e : 

85 

e5 


sta 

$e5 [ 

sctop ] 

ca70: 

38 



sec 



ca71 : 

66 

e8 


ror 

$e8 [ 

lsxp ] 

ca73 : 

4c 

56 

cl 

jmp 

* $cl56 


ca7 6 : 

20 

le 

cc 

jsr 

* Sede 


ca79 : 

20 

aa 

c4 

jsr 

* $c4aa 


ca7c : 

e6 

eb 


ine 

Seb i 

’ tblx ] 

ca7e : 

20 

5c 

cl 

jsr 

* $cl5c 


ca81 : 

a4 

e6 


ldy 

Se6 | 

' self ] 

ca83 : 

20 

74 

cb 

jsr 

* $cb74 


ca86: 

bO 

fi 


bes 

* $ca7 9 


ca88 : 

4c 

32 

c9 

jmp 

* $c932 


ca8b : 

20 

le 

cc 

jsr 

* Sede 


ca8e : 

20 

27 

cc 

jsr 

* $cc27 


ca91 : 

c4 

e6 


cpy 

$e6 | 

! self ] 

ca93 : 

dO 

05 


bne 

* $ca9a 


ca95: 

20 

74 

cb 

jsr 

* $cb74 


ca98 : 

90 

ee 


bcc 

* $ca88 


ca9a : 

20 

00 

cc 

jsr 

* $cc00 


ca9d: 

90 

ef 


bcc 

* $ca8e 


ca9f : 

20 

le 

cc 

jsr 

* Sede 


caa2 : 

20 

aa 

c4 

jsr 

* $c4aa 


caa5 : 

e6 

eb 


ine 

Seb | 

! tblx ] 

caa7 : 

20 

5c 

cl 

jsr 

* Scl5c 


caaa : 

a4 

e6 


ldy 

Se6 | 

[ self ] 

caac : 

20 

74 

cb 

jsr 

* $cb7 4 


caaf : 

bO 

fi 


bes 

* Scaa2 


cabl : 

a5 

eb 


Ida 

Seb | 

' tblx ] 

cab3 : 

c5 

e4 


emp 

Se4 | 

[ sebot ] 

cab5 : 

90 

eb 


bcc 

* $caa2 


cab7 : 

fO 

e9 


beq 

* Scaa2 


cab9 : 

4c 

32 

c9 

jmp 

* Sc932 


cabc : 

20 

le 

cc 

jsr 

* Sede 


cabf : 

8a 



txa 



cacO : 

48 



pha 



caci : 

20 

a6 

c3 

jsr 

* $c3a6 


cac4 : 

68 



pia 



cac5 : 

85 

df 


sta 

Sdf | 

[ keytmp ] 

caci : 

4c 

32 

c9 

jmp 

* $c932 


caca : 

20 

le 

cc 

jsr 

* Sede 


cacd : 

20 

74 

cb 

jsr 

* $cb7 4 


cadO : 

bO 

03 


bes 

* Scad5 


cad2 : 

38 



sec 



cad3 : 

66 

e8 


ror 

Se8 

[ lsxp ] 

cad5 : 

a5 

e5 


Ida 

Se5 

[ sctop ) 

cad7 : 

85 

eb 


sta 

Seb 

[ tblx ] 

cad9 : 

20 

7c 

c3 

jsr 

* $c37c 


cade : 

20 

85 

cb 

jsr 

* $cb8 5 


cadf : 

4c 

32 

c9 

jmp 

* $c932 


cae2 : 

a9 

00 


Ida 

#$00 


cae4 : 

2c 



. byte 

$2c 


cae5 : 

a9 

80 


Ida 

#$80 


cae7 : 

85 

f 8 


sta 

$f 8 

[ locks+ 1 

cae9 : 

60 



rts 




Riprendi il flag di scroi 1 
J Salva il flag di scroll 
Carica in A max finestra 
Scrivi att. linea curs. in A 
Prendi max finestra 
Riscrivi q.s. 

Fissa il carry 

Segna come linea seguente 

Poni il curs. bordo sin. finestra 

Salva coord. cursore 

Clear linea cursore 

Incr. di 1 att. linea curs. 

Determina ind. iniz. linea 
Carica in Y bordo sin. finestra 
Controllo bit di overflow-line 
Esegui clear seg. linee 
Fissa vecchio ind. cursore 
Salva coord. cursore 
Metti SPAZIO a att.pos. curs. 

Confr. con bordo sin.finestra 

Vai a ind. se non trovato 

Contr. bit overflow-line 

Se nessun overflow fine 

Cursore a sinistra 

Clear linea 

Salva coord. cursore 

Cancella linea 

Incr. di 1 att. linea curs. 

Determ. ind. iniz. linea curs. 

Metti in Y bordo sin. finestra 
Controlla bit di overflow-1ine 
Se linea non trov. vai a ind. 

Metti in A att. linea curs. 

Confronta bordo inf. finestra 
Bordo inf. non trovato 
Bordo inferiore trovato 
Ripristina vecchio ind. curs. 

Salva corrd. cursore 

Trasf. linea in A 

Salva linea su STACK 

Vai a scroll in alto 

Riprendi linea da stack 

Immagazzina in A 

Ripris. coord. vecchie del curs. 

Salva coord. cursore 

Controllo bit overflow-1ine 

Vai a ind. se non overflow 

Segna, che linea di input non e'stata 

rit. come linea di partenza 

Metti in A max finestra 

Immag. att. linea curs. 

Esegui un scroll in basso 
Esegui un clear su bit overf-line 
Ripristina vecchie coordi. cursore 
Abilit. funzione di scrolling 
Salta a $cae7 
Disabilita lo scrolling 
] Immag. flag di scroll 
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CONTROLLO AUTOINSERÌMENTO 


caea : 

a9 

00 


Ida 

#$00 


Esegui clear su flag di auto-insert 

caec : 

2c 

a9 

ff 

bit. 

* $ffa9 


Vai a $CAEF fis. flag sopra 

caef : 

85 

f 6 


sta 

$f 6 l 

insflg ] 

Immagaz. in A il flag 

caf 1 : 

60 



rts 




ATTIVAZIONE 

BLOCCO CURSORE 



caf 2 : 

24 

d7 


bit 

$d7 [ 

mode ] 

Controllo modo 40/80 colonne 

caf 4 : 

10 

40 


bpl 

* $cb36 


Se modo 40 colo, fine 

caf 6 : 

ad 

2b 

0a 

Ida 

$0a2b 


Metti in A modo curs. da VDC 

caf 9 : 

29 

e0 


and 

#$e0 


Mask out dei bits 0-4 

caf b: 

4c 

14 

cb 

jmp 

* $cbl4 


Cursor off 

caf e: 

24 

d7 


bit 

$d7 [ 

mode ] 

Controllo flag 40/80 colonne 

cbOO : 

10 

34 


bpl 

* $cb36 


Se 40 col. fine 

cb02 : 

ad 

2b 

Oa 

Ida 

$0a2b 


Metti in A modo curs. da VDC 

cb05 : 

29 

e0 


and 

#$e0 


Mask out bits 0-4 

cbO 7 : 

09 

07 


ora 

#$07 


7 e' la linea di inizio scansione 

cb09 : 

dO 

09 


bne 

* $cbl4 


Salto ine. a ind. 

cbOb : 

24 

d7 


bit 

$d7 [ 

mode ] 

Controllo modo 40/80 

cbOd : 

10 

Ob 


bpl 

* $cbla 


Se 40 col. vai ad ind. 

cbOf : 

ad 

2b 

Oa 

Ida 

$0a2b 


metti in A modo cursore VDC 

cbl 2 : 

29 

lf 


and 

#$lf 


Mask out del bit di flash 

cbl 4 : 

8d 

2b 

Oa 

sta 

$0a2b 


Salva su A 

cbl 7 : 

4c 

91 

cd 

jmp 

* $cd91 


Metti in off modo e VIC 

cbla : 

ad 

26 

Oa 

Ida 

$0a26 


Metti in A modo cursore del VIC 

cbld : 

09 

40 


ora 

#$40 


Fissa bit 6 

cbl f : 

dO 

12 


bne 

* $cb33 


Salto incond. 

cb21 : 

24 

d7 


bit 

$d7 | 

[ mode ] 

Controllo modo 40/80 colonne 

cb2 3 : 

10 

09 


bpl 

* $cb2e 


Se 40 colonne vai ad ind. 

cb25 : 

ad 

2b 

Oa 

Ida 

$0a2b 


Carica in A modo curs. VDC 

cb2 8 : 

29 

lf 


and 

#$lf 


Mask out bit di flash 

cb2a : 

09 

60 


ora 

#$60 


Definiz. per. puls. flash 

cb2c: 

dO 

e6 


bne 

* $cbl4 


Salto ine. per immag. 

cb2e : 

ad 

26 

Oa 

Ida 

$0a26 


Metti modo curs. VIC 

cb31 : 

29 

bf 


and 

#$bf 


Mask out bit 6 

cb33 : 

8d 

26 

Oa 

sta 

$0a26 


Salva q.s. 

cb36 : 

60 



rts 




ABILITA FLAG PER CAMPANELLO 



cb37 : 

a9 

00 


Ida 

#$00 


Abilita segn acust. 

cb39 : 

2 c 



■ Byte 

$2c 


Vai a $CB3C 

cb3a : 

a9 

80 


Ida 

#$80 


Disabilita campanello (BELL) 

cb3c : 

85 

f 9 


sta 

$f 9 | 

[ beeper ] 

Immag. flag 

cb3e : 

60 



rts 




80 COLONNE : 

IN REVERSE 



cb3f 

a2 

18 


ldx 

#$18 


Sei. reg. 24 

cb41 

20 

da 

cd 

jsr 

* $cdda 


Prel. cont. attuale 

cb44 

09 

40 


ora 

#$40 


Fissa flag di REVERSE 

cb4 6 

dO 

07 


bne 

* $cb4f 


Salto ine. a ind. 

cb48 

a2 

18 


ldx 

#$18 


Sei. registro 24 

cb4a 

20 

da 

cd 

jsr 

* $cdda 


Prel. cont. attuale 

cb4d 

29 

bf 


and 

#$bf 


Clear su flag di RVS 

cb4f 

4c 

cc 

cd 

jmp 

* $cdcc 


Immagazzina flag 

cb52 

20 

c3 

cb 

jsr 

* $cbc3 


Determ.att. linea ini. indir. 

cb55 

4c 

3e 

c3 

jmp 

* $c33e 


Pos. curs. a fine linea 
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cb5 8: 

a4 

ec 


ldy 

Sec 

[ pntr ] 

cb5a : 

24 

d7 


bit 

$d7 

[ mode ] 

cb5c : 

30 

07 


bmi 

* $cb65 


cb5e : 

bl 

e2 


Ida 

($e2),y 

[ user ] 

cb6 0 : 

85 

f 2 


sta 

$f 2 

[ tcolor ] 

cb62 : 

bl 

eO 


Ida 

($e0) ,y 

[ pnt ] 

cb64 : 

60 



rts 



CARATTERE E 

COLORE SOTTO IL 

CURSORE 

cb6 5 : 

20 

f 9 

cd 

jsr 

* Scdf9 


cb68 : 

20 

d8 

cd 

jsr 

* $cdd8 


cb6b : 

85 

f 2 


sta 

$f 2 

4 tcolor ] 

cb6d : 

20 

e6 

cd 

jsr 

* Scde6 


cb7 0 : 

20 

d8 

cd 

jsr 

* $cdd8 


cb73 : 

60 



rts 



CONTROLLO LINEA 

DI OVERFLOW 


cb74 : 

a6 

eb 


ldx 

$eb 

[ tblx ] 

cb76 : 

20 

9f 

cb 

jsr 

* $cb9f 


cb 7 9 : 

3d 

5e 

03 

and 

$035e,x 


chic : 

c9 

01 


cmp 

jf$01 


cb7e : 

4c 

90 

cb 

jmp 

* $cb90 


cb81 : 

a6 

eb 


ldx 

$eb 

[ tblx ] 

cb8 3 : 

b0 

Oe 


bcs 

* $cb9 3 


cb85 : 

20 

9f 

cb 

jsr 

* $cb9f 


cb88 : 

49 

ff 


eor 

#$ff 


cb8a : 

3d 

5e 

03 

and 

$0 35e, x 


cb8d : 

9d 

5e 

03 

sta 

$035e,x 


cb90 : 

a6 

da 


ldx 

$da 

[ keysiz ] 

cb92 : 

60 



rts 




FISSA 

IL 

BIT 

' DELLA LINEA DI 

OVERFLOW 

cb93 : 

24 

f 8 


bit 

$f 8 

[ locks+ 1 

cb9 5 : 

70 

df 


bvs 

* $cb76 


cb9 7 : 

20 

9f 

cb 

jsr 

* $cb9f 


cb9a : 

ld 

5e 

03 

ora 

$035e, x 


cb9d : 

dO 

ee 


bne 

* $cb8d 


cb9f : 

86 

da 


stx 

$da 

[ keysiz ] 

cbal : 

8a 



txa 



cba2 : 

29 

07 


and 

#$07 


cba4 : 

aa 



tax 



cba5 : 

bd 

6c 

ce 

Ida 

* $ce6c, 

r X 

cba8 : 

48 



pha 



cba9 : 

a5 

da 


Ida 

$da 

[ keysiz ] 

cbab: 

4a 



lsr 

a 


cbac : 

4a 



1 sr 

a 


cbad : 

4a 



lsr 

a 


cbae : 

aa 



tax 



cbaf : 

68 



pia 



cbbO : 

60 



rts 



ESECUZIONE DI 1 

LJN CLEAR DI OVERFLOW 

ebbi : 

a4 

e6 


ldy 

$e6 

[ self ] 

cbb3 : 

84 

ec 


sty 

Sec 

[ pntr ] 

cbb5 : 

20 

74 

cb 

jsr 

* $cb7 4 



Metti in Y col. att. curs. 
Controllo modo 40/80 
Salta a ind. se 80 cól. 

Carica A con col. pos. cursore 
Salva su A 

Prendi cara, a pos. cursore 


Fissa ind. aggiorn 

Prel. valore 

Immag. valore 

Fissa su video ind. agg. 

Prel. car. da RAM video 


Metti in X att. linea curs. 

Def. pot di 2 

Esegui un clear su bit di ovflow-line 
Contr. per linea fissata 
Vai a fine rout. 

Metti in X att. linea curs. 

Salta ad ind. se flag fissato 

Defin. potenza di 2 

Esegui compì a 1 di A 

Esegui un AND con tavola di overflow 

Imm. in A 

Metti in X per immag. tempor. 


Controllo bit di scroll 
Salta se bit 6 fissato 
Determ. potenza di 2 
Fissa bit di overflow-line 
Aggiornalo 
Salva A 
Trasf. X in A 
Mask out bits 3-7 
A trasf. in X 
Prendi corr. potenza di 2 
Salva A su stack 
Riprist. valore orig. 

A questo punto il valore viene 
diviso per 2 tre volte ed i risultati 
posti in INT 
Risultati in X 

Preleva potenza di 2 da Stack 


Metti in Y bordo sin.finestra 

Salva att. colo, cursore 

Clear bit di ovefl-line di linea curs. 
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cbb8 : 

90 

06 


bcc 

* $cbc0 


Il carry a O s se tuuti bits=0 

cbba : 

c6 

eb 


dee 

$eb 

[ tblx ] 

Decr. 1 att. linea cursore 

ebbe: 

10 

f 7 


bpl 

* $cbb5 


Se non e' la prima linea salta ind. 

ebbe : 

e6 

eb 


ine 

Seb 

[ tblx ] 

Incr. att. linea curs. 

ebeO : 

4c 

5c 

cl 

jmp 

* Sci5c 


Ricerca ind.iniz.linea att. 

cbc3 : 

e6 

eb 


ine 

Seb 

[ tblx ] 

Incr. att. linea curs. 

cbc5 : 

20 

74 

cb 

jsr 

* Scb74 


Esegui clear su bit di ovflow-line 

cbc8 : 

bO 

f 9 


bes 

* Scbc3 


Se non e'ultima linea salta ad ind. 

ebea : 

c6 

eb 


dee 

Seb 

[ tblx ] 

Decr. att. linea curs. 

cbcc: 

20 

5c 

cl 

jsr 

* Sci5c 


Ricerca ind.iniz.linea att. 

ebef : 

a4 

e7 


ldy 

Se7 

[ scrt ] 

Carica Y bordo destro finestra 

cbdl : 

84 

ec 


sty 

Sec 

ì pntr ] 

Salva att. ccl. cursore 

cbd3 : 

20 

58 

cb 

jsr 

* $cb5 8 


Prendi car. e col. pos. cursore 

cbd6 : 

a6 

eb 


ldx 

Seb 

[ tblx ] 

Carica X con linea att. curs. 

cbd8 : 

c9 

20 


emp 

#S20 


Contr. se e'caratt. SPAZIO 

ebda : 

dO 

0e 


bne 

* Sebea 


Se neg. vai ad ind. 

ebde: 

c4 

e6 


cpy 

$e6 

[ self ] 

Confronta con bordo sin. 

ebde: 

dO 

05 


bne 

* $cbe5 


Non trovato 

ebeO : 

20 

74 

cb 

jsr 

* $cb74 


Esegui clear su bit di ovfl-line 

cbe3 : 

90 

05 


bcc 

* Sebea 


Linea ancora libera 

cbe5 : 

20 

00 

cc 

jsr 

* SccOO 


Pos. cursore un passo a destra 

cbe8 : 

90 

e9 


bcc 

* Scbd3 


Abil. mov. cursore 

ebea : 

84 

ea 


sty 

$ea 

[ indx ] 

Fine att. .linea di input 

cbec: 

60 



rts 




SPOSTAMENTO 

DEL 

CURSORE 1 A 

DESTRA ( 

SULLA FINESTRA) 

ebed : 

48 



pha 



Salva A in Stack 

ebee : 

a4 

ec 


ldy 

$ec 

[ pntr ] 

Metti in Y attuale linea cursore 

cbf 0 : 

c4 

e7 


cpy 

Se7 

[ scrt ] 

Confronta con bordo des.finestra 

cbf 2 : 

90 

07 


bcc 

* Scbfb 


Contr. rie. bordo destro fin. 

cbf 4 : 

20 

63 

c3 

jsr 

* $c363 


Se neg.increm. curs. colonna 

cbf 7: 

a4 

e6 


ldy 

$e6 

[ self ] 

Metti in Y bordo sinistro finestra 

cbf 9: 

88 



dey 



Decrementa di 1 Y 

cbf a : 

38 



sec 



Fissa carry per nuova linea 

cbf b : 

c8 



iny 



Incrementa di 1 colon, cursore 

cbf e : 

84 

ec 


sty 

Sec 

[ pntr ] 

Immag. att. colonna cursore 

cbf e : 

68 



pia 



Rimetti A in Stack 

cbf f : 

60 



rts 




SPOSTAMENTO 

DEL 

CURSORE 1 A 

SINISTRA 

(SULLA FINESTRA) 

ccOO : 

a4 

ec 


ldy 

Sec 

[ pntr ] 

Metti in Y att. col. cursore 

cc02 : 

88 



dey 



Decrementa col. di 1 

ccO 3 : 

30 

04 


bmi 

* $cc09 


Se risul. prec. neg.curs. in col.O 

cc0 5 : 

c4 

e6 


cpy 

$e6 

[ self ] 

Confronta con bordo sin.finestra 

cc07 : 

b0 

Of 


bes 

* $ccl8 


Se non ragg. punto max. OK 

cc09 : 

a4 

e5 


ldy 

Se5 

[ sctop 

] Carica max finestra in Y 

ccOb : 

c4 

eb 


cpy 

Seb 

[ tblx ] 

Confronta con att. linea curs. 

ccOd : 

b0 

Oe 


bes 

* Sccld 


Contr.curs.sul max. fine 

ccOf : 

c6 

eb 


dee 

Seb 

[ tblx ] 

Decrem. att. linea curs. 

ccl 1 : 

48 



pha 



Salva A su Stack 

ccl 2 : 

20 

5c 

cl 

jsr 

* $cl5c 


Cerca ind. part. linea 

ccl 5 : 

68 



pia 



Riprist. A da Stack 

ccl6 : 

a4 

el 


ldy 

Se7 

[ scrt ] 

Metti in Y bordo destro fin. 

ccl 8 : 

84 

ec 


sty 

Sec 

l pntr j 

Salva att. pos. curs. colonna 

cela : 

c4 

el 


cpy 

Se7 

[ scrt j 

Confronto con bordo dest. fin 

cele : 

18 



eie 



Clear di carry per mov. curs. 

ccld : 

60 



rts 









Il Sistema Operativo del Commodore 128_Pag. - 61 


COPIA DI SERVIZIO PER IL CURSORE 

cele: a4 ec ldy $ec [ pntr ] Metti in Y att. colonna curs. 

cc20: 84 de sty $de [ keybnk ] Copia q.s. in $de 

cc22: a6 eb ldx $eb [ tblx ] Metti in X att. linea curs. 


cc24: 86 df stx $df [ keytmp J 


cc2 6 : 

60 


rts 



IMMETTI 1 

SPAZIO IN 

POS. CURSORE 

cc2 7 : 

a5 

fi 

Ida 

$fl [ 

color ] 

cc29 : 

29 

8f 

and 

#$ 8 f 


cc2b: 

aa 


tax 



cc2c: 

a9 

20 

Ida 

#$20 


cc2e : 

2c 


byte 

$2c 


cc2f : 

a6 

fi 

ldx 

*f 1 


cc31 : 

2c 


byte 

$2c 


cc32 : 

a6 

f 2 

ldx 

*f 2 


cc34 : 

a8 


tay 



cc35 : 

a9 

02 

Ida 

#$02 


cc37 : 

8d 

28 Oa 

sta 

$0a28 


cc3a : 

20 

7c cl 

jsr 

* $cl7c 


cc3d : 

98 


tya 



cc3e: 

a4 

ec 

ldy 

$ec 1 

pntr ] 

cc40 : 

24 

d7 

bit 

$d7 | 

mode ] 

cc42 : 

30 

06 

bmi 

* $cc4a 


cc44 : 

91 

e0 

sta 

($e0),y | 

! pnt ] 

cc46 : 

8a 


txa 



cc4 7 : 

91 

e2. 

sta 

($e2),y | 

[ user ] 

cc49 : 

60 


rts 



CARATTERE SU SCHERMO A 80 COLONNE 

cc4a : 

48 


pha 



cc4b : 

8a 


txa 



cc4c : 

48 


pha 



cc4d : 

20 

f9 cd 

jsr 

* $cdf9 


cc5 0 : 

68 


pia 



cc51 : 

20 

ca cd 

jsr 

* $cdca 


cc54 : 

20 

e6 cd 

jsr 

* $cde6 


cc57 : 

68 


pia 



cc58 : 

4c 

ca cd 

jmp 

* $cdca 


cc5b : 

38 


sec 



cc5c : 

a5 

e4 

Ida 

$e4 

[ sebot ] 

cc5e : 

e5 

e5 

sbe 

$e5 

[ sctop ] 

cc60 : 

a8 


tay 



cc61 : 

38 


sec 



cc6 2 : 

a5 

e7 

Ida 

$e7 

[ scrt ] 

cc64 : 

e5 

e6 

sbe 

$e6 | 

[ self ] 

cc66 : 

aa 


tax 



cc67 : 

a5 

ee 

Ida 

$ee 

[ columns ] 

cc6 9 : 

60 


rts 



POSIZIONAMENTO 

CURSORE 


cc6a : 

bO 

29 

bes 

* $cc9 5 


cc6c : 

8a 


txa 



cc6d : 

65 

e5 

adc 

$e5 

[ sctop ] 

cc6f : 

bO 

14 

bes 

* $cc85 


cc71 : 

c5 

e4 

emp 

$e4 

[ sebot ] 


Copia ris. in $df 


Metti in A cod.col.per car. da vis. 

Mask out bits 4-6 

Trasf. q.s. in X 

Carica A con SPAZIO 

Vai a $cc31 

Carica registro X con colore 
Vai a $cc34 

Carica codice colore per insert/del 

Trasf A in Y 

Metti in A valore 2 

Cont. VIC per FLASH 

Agg. indirizzo 

Trasf Y in A 

Metti in Y att. col. curs. 

Contr. modo 40/80 colonne 
Se 80 col. salta a ind. 

Immag. caratt. in 40 colonne 
Trasferisci RAM (video) e reg. X 
per colore in mem. colore 


Salva A su Stack 

Trasf reg. X (colore) in A 

Immag. su stack 

Fissa reg. aggiornato 

Il colore da Stack in A 

Immag. q.s. in RAM 

Fissa ind. agg. per RAM video 

Riprendi car. da Stack 

Immag. car. in RAM video 

Fissa il carry 

Metti in A min finestra 

Sottrai max. linea 

Trasf in reg. Y 

Fissa il carry 

Metti in A bordo destro finestra 
Sottrai bordo si.fin. prec. 
Trasf. Xn.car. per linea 
Metti in A n. colonne 


Contr. per carry fissato 
Trasf. linea in A 
Aggiungi max. finestra 
Contr. per overflow.Pos. termina 
Confr. con min. finestra 
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cc7 3 : 

fO 

02 


beq 

* $cc77 


cc7 5 : 

bO 

0e 


bes 

* $cc85 


coll : 

48 



pha 



cc78: 

18 



eie 



cc79: 

98 



tya 



cela : 

65 

e6 


adc 

$e6 [ 

self ] 

cele: 

bO 

06 


bes 

* $cc84 


cele : 

c5 

el 


emp 

$e7 [ 

scrt ] 

cc80 : 

fO 

04 


beq 

* $cc86 


cc8 2 : 

90 

02 


bcc 

* $cc8 6 


cc84 : 

68 



pia 



cc85: 

60 



rts 



ESEGUI UN CLEAR 

SULLA LINEA DI INPUT 

cc86 : 

85 

ec 


sta 

Sec [ 

pntr ] 

cc8 8 : 

85 

e9 


sta 

$e9 [ 

lstp ] 

cc8a : 

68 



pia 



cc8b : 

85 

eb 


sta 

$eb [ 

tblx ] 

cc8d : 

85 

e8 


sta 

$e8 [ 

1 sxp ] 

cc8f : 

20 

5c 

cl 

jsr 

* $cl5c 


cc92 : 

20 

57 

cd 

jsr 

* $cd57 


cc9 5 : 

a5 

eb 


Ida 

$eb [ 

tblx ] 

cc97 : 

e5 

e5 


sbe 

$e5 [ 

sctop ] 

cc99 : 

aa 



tax 



cc9a : 

38 



sec 



cc9b: 

a5 

ec 


Ida 

$ec [ 

pntr ] 

cc9d : 

e5 

e6 


sbe 

$e6 [ 

self ] 

cc9f : 

a8 



tay 



ccaO : 

18 



eie 



ccal : 

60 



rts 



INGRESSO 

ROUTINE KERNAL PFKEY 


cca2 : 

ca 



dex 



cca3 : 

86 

de 


stx 

$dc [ 

keynum ] 

cca5 : 

84 

da 


sty 

$da [ 

keysiz ) 

cca7 : 

8d 

aa 

02 

sta 

$02aa 


ccaa : 

a8 



tay 



ccab: 

b6 

02 


ldx 

$02,y [ 

bank ] 

ccad : 

20 

6b 

f f 

jsr 

* $ff6b [ 

getegf ] 

ccbO : 

85 

de 


sta 

$de [ 

keybnk ] 

ccb2 : 

a2 

Oa 


ldx 

#$0a 


ccb4 : 

20 

20 

cd 

jsr 

* $cd20 


ccb7 : 

85 

db 


sta 

$db [ 

keylen ] 

ccb9 : 

a6 

de 


ldx 

$dc [ 

keynum ] 

ccbb : 

e8 



inx 



ccbc : 

20 

20 

cd 

jsr 

* $cd20 


ccbf : 

85 

dd 


sta 

$dd [ 

keynxt ] 

cccl : 

a6 

de 


ldx 

$dc [ 

keynum ] 

ccc3 : 

a5 

da 


Ida 

$da [ 

keysiz ] 

ccc5 : 

38 



sec 



ccc6 : 

fd 

00 

10 

sbe 

$1000,x 


ccc9 : 

fO 

2b 


beq 

* $ccf6 


cccb : 

90 

16 


bcc 

* $cce3 


cccd : 

18 



eie 



ccce : 

65 

db 


adc 

$db [ 

keylen ] 

ccdO : 

bO 

4d 


bes 

* $cdlf 


ccd2 : 

aa 



tax 



ccd3 : 

a4 

db 


ldy 

$db [ 

keylen ] 


Se rilev. tutto bene 

Contr. per overflow.Pos. termina 

Salva n. linea su STACK 

Esegui Clear del Carry per somma 

Immetti col. in A. 

Sommaci bordo sin. finestra 

Conr. per overflow. Se pos. termina 

Confronta con bordo destro fin. 

Va bene se uguale 

Se invece overflow errore e fine 

Carica linea da Stack 


Immag. att. colonna curs. 
Immag. linea iniz. input 
Prendi linea da Stack 
Riscrivi att. linea curs. 
Immag. come linea iniz. input 
Determ. ind. att. linea 
Fissa curs. attu. linea 
Immetti A att. lienea curs. 
Sottrai max. finestra 
Trasf. risult. ir) X 
Fissa Carry per sottraz. 

Metti in A att. col. curs. 
Sottrai bordo sin. finestra 
Meti risult. in Y. 

Esegui un Clear del Carry 


Decr. numero tasto funz. 

Immetti n. prec. in Pag. Zero 
Immagg. lungh. stringa in Pag. Zero 
Immag. q.s. in FETVEC 
Trasf. punt.ind.stringa in Y 
Imm. n.banco stringa funz. in X 
Vai a subr. GETCFG 

Immag.in banco raem.byte per str.funz. 
Metti n. tasti funz. in A 
Aggiorna lung.str.funzione 
Immag.in Pag. Olung. stringa 
Carica n. tasto funzione 
Crea n. reale per tasto funz. 

Aggiorna lung.str.funzione 
Immag.' lunghezza stringa 
Carica n. tasto funzione 
Carica lung.stringa tasto funz. 

Fissa il carry per sottraz. 

Sottrai lungh. vecchia funz. stringa 
Ness. mov necess. Cont. 

Contr. nuova str. minore prec. 

Clear Carry per somma 

Somma :lung.tot. e differ. con vecch. 

Se lung. >256 errore 

Immetti nuova lung. max. in X 

Immetti vecchio vai.(max.lung) in Y 
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ccd5 : 

c4 

dd 


cpy 

$dd [ 

keynxt ] 

ccdV : 

f 0 

ld 


beq 

* $ccf6 


ccd9 : 

88 



dey 



ceda : 

ca 



dex 



ccdb : 

b9 

0a 

10 

Ida 

$100a,y 


cede : 

9d 

Oa 

10 

sta 

$1OOa , x 


ccel : 

bO 

f 2 


bes 

* $ccd5 


cce3 : 

65 

dd 


adc 

$dd ( 

keynxt ] 

cce5 : 

aa 



tax 



cce6 : 

a4 

dd 


ldy 

$dd [ 

keynxt ] 

cce8 : 

c4 

db 


cpy 

$db [ 

keylen ] 

ccea : 

bO 

0a 


bes 

* $ccf6 


ccec : 

b9 

Oa 

10 

Ida 

$100a,y 


ccef : 

9d 

Oa 

10 

sta 

$100a, x 


ccf 2 : 

c8 



iny 



ccf 3 : 

e8 



inx 



ccf 4 : 

90 

f 2 


bcc 

* $cce8 


ccf 6: 

a6 

de 


ldx 

Sdc [ 

keynum ] 

ccf 8 : 

20 

20 

cd 

jsr 

* $cd20 


ccfb: 

aa 



tax 



ccf c : 

a4 

de 


ldy 

$dc [ 

keynum ] 

ccf e : 

a5 

da 


Ida 

$da | 

keysiz ] 

cdOO : 

99 

00 

10 

sta 

$1000,y 


cdO 3 : 

a0 

00 


ldy 

#$00 


cd05 : 

c6 

da 


dee 

$da | 

keysiz ] 

cdO 7 : 

30 

15 


bmi 

* Sedie 


cd09 : 

86 

df 


stx 

$df | 

keytmp ] 

cdOb : 

a6 

de 


ldx 

$de | 

[ keybnk ] 

cdOd : 

ad 

aa 

02 

' Ida 

$02aa 


cdlO : 

78 



sei 



cdl 1 : 

20 

a2 

02 

jsr 

$02a2 


cdl 4 : 

58 



eli 



cdl 5 : 

a6 

df 


ldx 

$df | 

[ keytmp ] 

cdl 7: 

9d 

0a 

10 

sta 

$100a,x 


cdl a : 

e8 



inx 



cdlb* 

c8 



iny 



cdlc: 

d0 

e7 


bne 

* $cd05 


cdle : 

18 



eie 



cdlf : 

60 



rts 



CONTINUAZIONE PREC. 

PER LUNGHEZZA FUNZ 

cd20 : 

a9 

00 


Ida 

#$00 


cd22 : 

18 



eie 



cd2 3 : 

ca 



dex 



cd24 : 

30 

05 


bmi 

* $cd2b 


cd26 : 

7d 

00 

10 

adc 

$1000,x 


cd2 9 : 

90 

f 8 


bcc 

* $cd23 


cd2b : 

60 



rts 



ROUTINE KERNAL 

SWAPPER 


cd2c : 

85 

fO 


sta 

$f0 

[ lstchr ] 

cd2e : 

a2 

la 


ldx 

#$la 


cd30 : 

bc 

40 

0a 

ldy 

$0a40,x 


cd33 : 

b5 

eO 


Ida 

$e0 ,x 

[ pnt ] 

cd35 : 

9d 

40 

Oa 

sta 

$0a40,x 


cd3 8 : 

98 



tya 



cd39 : 

95 

e0 


sta 

$e0 ,x 

[ pnt ] 

cd3b: 

ca 



dex 




Contr. se entrambi vai. prec. uguali 
Se pos. ind. ultimo tasto funz. 

Decr. vecchia lung.(max) di 1 
Increm. nuova lung.(max) di 1 
Sposta stringa funz. dalla nuova pos. 
di inserimento 

Riserva spazio per nuova str. 

Somma la diff. lunghezze 
Metti nuova lung. in X 
Immetti vecchia lung. in Y 
Confronta con vecchio max 
Se confr. = allora spazio 
Inser. per nuova str. funzione 
Esegui, funzione del tasto 
Increm. vecchia e nuova lunghezza 
di 1 bit per mov. 

Contr. spostarti, funz. stringa 
Carica n. tasto funz. 

Somma lung. funz. stringa 
Trasf in X nuovo tasto funz. 

Carica n. tasto funzione 

Carica lung. funz. stringa per inser. 

Sost. lungh. ingr.in tav.funz.stringa 

Iniz. spostamento puntatori 

Decr. di 1 lung. funz. stringa 

Trasf. tutti car. nella tavola.Esci 

Immag.lung. stringa 

N. banco dove e' stringa 

Carica A con FETVEC 

Disab. tutti interrupt 

Carica carattere (funz.str) 

Abilita tutti interrupt 
Carica in tavola pos.funz.str. 
Inserisci cara. 

Incr. buffer str. di 1 
Incr. buffer str. di 1 
Vai al ciclo trasf.stringa 
Clear carry per Mark. 


IONE STRINGA 

Metti 0 nel contatore 
Clear di carry per somma 
Decr. vai. prec. tasto 
Se 0 aggiungi lungh.tot. 

Agg. lung. tasto X 

Esegui un salto ine. a subr. 


Immag. in A ult.car.stamp. 

Scambia tipo monitor 
Immag. schermo att. 

Rout. di esecuzione funz. prec. per 
26 volte pari al n.bytes da copiare 
Immag. interv. passivo da loc. $0A40 
a $0A5B 

Decrem. contatore 
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cd3c: 

10 

f 2 


bpl 

* $cd30 


cd3e : 

a2 

Od 


ldx 

#$oa 


cd40 : 

bc 

60 

0a 

ldy 

$ 0a6 0 , x 


cd4 3 : 

bd 

54 

03 

Ida 

$0354 ,x 


cd46 : 

9d 

60 

Oa 

sta 

$0a60,x 


cd4 9 : 

98 



tya 



cd4a : 

9d 

54 

03 

sta 

$0354,x 


cd4d : 

ca 



dex 



cd4e: 

10 

f 0 


bpl 

* $cd40 


cd5 0 : 

a5 

d7 


Ida 

$d7 

[ mode ] 

cd52 : 

49 

80 


eor 

#$80 


cd5 4 : 

85 

d7 


sta 

$d7 

[ mode ] 

cd56 : 

60 



rts 




ROUTINE DI POSIZIONAMENTO CURSORE 


cd5 7 : 

24 

d7 


bit 

$d7 | 

mode ] 

cd59 : 

10 

fb 


bpl 

* $cd56 


cd5b : 

a2 

0e 


ldx 

#$0e 


cd5d : 

18 



eie 



cd5e : 

a5 

eO 


Ida 

$e0 | 

[ pnt ] 

cd6 0 : 

65 

ec 


adc 

$ec | 

; pntr ] 

cd62 : 

48 



pha 



cd6 3 : 

a5 

el 


Ida 

$el | 

pnt+ 1 ] 

cd6 5 : 

69 

00 


adc 

#$00 


cd67 : 

20 

CC 

cd 

jsr 

* $cdcc 


cd6a : 

e8 



inx 



cd6b : 

68 



pia 



cd6c : 

4c 

CC 

cd 

jmp 

* $cdcc 


cd6f : ' 

24 

d7 


bit 

$d7 | 

! mode ] 

cd71 : 

10 

26 


bpl 

* $cd99 


cd7 3 : 

20 

le 

cl 

jsr 

* $cl7c 


cd7 6 : 

a4 

ec 


ldy 

$ec 1 

[ pntr ] 

cd78 : 

20 

f 9 

cd 

jsr 

* $cdf9 


cd7b : 

20 

d8 

cd 

jsr 

* $cdd8 


cd7e : 

8d 

33 

Oa 

sta 

$ 0a3 3 


cd81 : 

29 

fO 


and 

#$f0 


cd8 3 : 

85 

db 


sta 

$db | 

[ keylen ] 

cd8 5 : 

20 

f 9 

cd 

jsr 

* $cdf9 


cd8 8 : 

a5 

fi 


Ida 

$fl 1 

[ color ] 

cd8a : 

29 

Of 


and 

#$0f 


cd8c : 

05 

db 


ora 

$db | 

[ keylen ] 

cd8e : 

20 

ca 

cd 

jsr 

* $cdca 


cd91 : 

a2 

Oa 


ldx 

#$0a 


cd9 3 : 

ad 

2b 

Oa 

Ida 

$0a2b 


cd96 : 

4c 

CC 

cd 

jmp 

* $cdcc 


cd99 : 

a9 

00 


Ida 

#$00 


cd9b: 

8d 

27 

Oa 

sta 

$0a2 7 


cd9e : 

60 



rts 



ATTIVA CURSORE 

IN MODO 80 COLONNE 

cd9f : 

24 

d7 


bit 

$d7 

[ mode ] 

cdal : 

10 

10 


bpl 

* $cdb3 


cda3 : 

20 

f 9 

cd 

jsr 

* $cdf9 


cda6 : 

ad 

33 

Oa 

Ida 

$ 0a3 3 


cda9 : 

20 

ca 

cd 

jsr 

* $cdca 


cdac : 

a2 

Oa 


ldx 

#$0a 


cdae: 

a9 

20 


Ida 

#$20 


cdbO : 

4c 

CC 

cd 

jmp 

* $cdcc 



Contr. se niente e' cambiato 

Routine per 1 ' esecuzione del cambia 

fra schermo attivo e passivo. Riguarda 

sia bita map che tavole 

L ' area pass, inizia a $0A60 

Esegui per 13 volte 

Continua 

Decrem. contatore e salta a $CD40 
se copia non eff. 

Carica stato schermo 
Inverti il bit Flag 
Immag. di nuovo 


Contr. modo 40/80 colonne 
Se 40 col. vai a fine 
Posizione alta del cursore in X 
Clear del carry 

Metti in A byte basso att.linea sche. 
Sommaci col. curs. 

Metti in A byte basso 

Byte alto att. linea schermo 

Sommaci il Carry 

Immag.byte alto 

Increm punt. reg. 

Prendi byte basso da Stack 

Salva q.s. ancora 

Contr. per modo 40/80 col. 

Salta se siamo a 40 col. 

Fissa indirizzi 

Metti in Y att. col. curs. 

Agg. reg. con ind. 

Continua e completa 
Immag. temporaneo 
Mask out per bit 0-3 
Immag. lunghezza 
Agg. reg. con ind. 

Metti in A cod. colore caratt. 

Mask out bits 4-7 
Esegui un OR con A 
Immag. ind. 

Car. modo curs. e linea ini. scans. 
Modo curs. 80 col. 

Immagazzina q.s. 

Metti 0 in A 

Metti in off il cursore 


Controllo modo 40/80 colonne 
Salta se siamo a 40 col. 

Agg.. reg. con ind. 

Immag. temp. per MOVLIN 

Immag. indir, di cui sopra 

Modo curs. e linea inizio scans. 

Metti in A vai. 32 

Imm. A in reg. dati VDC 
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cdb3 : 

8d 

27 

0a 

sta 

$0a2 7 

Curs. VIC attivo 


cdb6 : 

ad 

26 

Oa 

Ida 

$0a26 

Contr. curs. fisso o lamp. 


cdb9 : 

10 

0e 


bpl 

* $cdc9 

Se fisso vai a fine 


cdbb: 

29 

40 


and 

#$40 

Clear il flag modo flash 


cdbd : 

8d 

26 

Oa 

sta 

$ 0a2'6 

Immagazzina in A 


cdcO : 

ad 

29 

Oa 

Ida 

$0a29 

Carica car. VIC prima del 

Flash 

cdc3 : 

ae 

2a 

Oa 

ldx 

$0a2a 

Carica col. VIC " " 


cdc6 : 

20 

34 

cc 

jsr 

* $cc3 4 

Fissa vecchi valori 


cdc9 : 

60 



rts 




ATTIVAZIONE 

REGISTRI 

: vcr 



cdca : 

a2 

lf 


ldx 

#$if 

Carica reg dati VCR 


cdcc : 

8e 

00 

d6 

stx 

* $d600 

Tras. registri 


cdcf : 

2c 

00 

d6 

bit 

* $d600 

Controllo di status 


cdd2 : 

10 

fb 


bpl 

* $cdcf 

Se non eseguito attendi 


cdd4 : 

8d 

01 

d6 

sta 

* $d601 

Immag. valore nel reg. 


cdd7 : 

60 



rts 




LETTURA VALORI 

DI VCR 



cdd8 : 

a2 

lf 


ldx 

#$lf 

Questa routine esegue esattamente 

cdda : 

8e 

00 

d6 

stx 

* $d600 

quanto sopra prendendo il 

valore 

cddd: 

2c 

00 

d6 

bit 

* $d600 

dall' A invece di caricarlo 

cdeO : 

10 

fb 


bpl 

* $cddd 



cde2 : 

ad 

01 

d6 

Ida 

* $d601 



cde5 : 

60 



rts 





65 - 
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cde6 : 

a2 

12 


ldx 

#$12 



cde8 : 

18 



eie 




cde9 : 

98 



tya 




edea : 

65 

eO 


adc 

$e0 [ 

pnt ] 


cdec : 

48 



pha 




eded: 

a9 

00 


' Ida 

#$00 



edef : 

65 

el 


adc 

$el [ 

pnt+ 1 

] 

cdf 1 : 

20 

cc 

cd 

jsr 

* $cdcc 



cdf 4 : 

68 



pia 




cdf 5: 

e8 



inx 




cdf 6 : 

4c 

cc 

cd 

jmp 

* $cdcc 



cdf 9: 

a2 

12 


ldx 

#$12 



cdfb: 

18 



eie 




cdf c : 

98 



tya 




cdfd: 

65 

e2 


adc 

$e2 [ 

user ] 


cdf f : 

48 



pha 




ceOO : 

a9 

00 


Ida 

#$00 



ce02 : 

65 

e3 


adc 

$e3 [ 

user+ 1 


ce04 : 

20 

cc 

cd 

jsr 

* $cdcc 



ce07 : 

68 



pia 




ce08 : 

e8 



inx 




ce09 : 

4c 

cc 

cd 

jmp 

* $cdcc 



ceOc: 

a9 

00 


Ida 

#$00 



ceOe : 

aO 

dO 


ldy 

#$d0 



celO : 

85 

da 


sta 

$da [ 

keysiz 

] 

cel2 : 

84 

db 


sty 

$db [ 

keylen 

] 

cel4 : 

a2 

12 


ldx 

#$12 



cel6 : 

a9 

20 


Ida 

#$20 



cel8 : 

20 

cc 

cd 

jsr 

* $cdcc 



celb: 

e8 



inx 




cele: 

a9 

00 


Ida 

#$00 



cele : 

20 

cc 

cd 

jsr 

* $cdcc 



ce21 : 

aO 

00 


ldy 

#$00 



ce23: 

a2 

Oe 


ldx 

#$0e 



ce25 : 

a9 

da 


Ida 

#$da 



ce27 : 

20 

74 

ff 

jsr 

* $ff74 

[ indfet 

ce2a : 

20 

ca 

cd 

jsr 

* $cdca 



ce2d: 

c8 



iny 




ce2e : 

cO 

08 


cpy 

#$08 



ce30 : 

90 

fi 


bcc 

* $ce23 



ce32 : 

a9 

00 


Ida 

#$00 



ce34 : 

20 

ca 

cd 

jsr 

* $cdca 



ce37 : 

88 



dey 




ce38 : 

dO 

fa 


bne 

* $ce34 



ce3a : 

18 



eie 




ce3b: 

a5 

da 


Ida 

$da [ 

keysiz 

] 

ce3d : 

69 

08 


adc 

#$08 



ce3f : 

85 

da 


sta 

$da [ 

keysiz 

] 

cè41 : 

90 

eO 


bcc 

* $ce23 



ce43 : 

e6 

db 


ine 

$db [ 

keylen 

] 

ce45 : 

a5 

db 


Ida 

$db [ 

keylen 

] 

ce47 : 

c9 

eO 


emp 

#$e0 



ce4 9 : 

90 

d8 


bcc 

* $ce23 



ce4b: 

60 



rts 





TAVOLA ASCII DEI CODICI DI COLORE 


Aggiorna indirizzo HI 

Esegui clear di carry per somma 

Trasf. Y in A 

Somma byte LO a ind. att. 

Trasferiscilo su Stack 

Carica A con zero 

Aggiungi il carry 

Immagazzina byte HI 

Byte LO da Stack 

Incrementa registro a $13 

Byte LO in registro aggiornato 

Aggiorna X con byte HI 

Esegui clear di Carry per somma 

Trasf. Y in A 

Somma byte LO di ind. 

Immettilo su Stack 
Carica A con 0 
Somma q.s. al carry 
Immag. byte HI 
Byte LO da Stack 
Incrementa X 
Vai a indirizzo 

Carica A e Y con indirizzo di parte, 
che e ' a $D000 

Immagazzina valori prec. in Pag. 0 
agli ind. $DA e $DB 
Aggiorna reg. HI 

Indir, iniz. del generatore di car. 
Q.s. in VDC 
Incrementa X 

Carica A come Byte LO di ind. iniz. 

del generatore di carattere ($00) 

Puntatore indice a linea/car 

Seleziona CHARROM 

Carica A con ind. pag. 0 

Vai a INDFET 

Immagazzina in RAM 

Incrementa Y. E' un puntatore ind. 

Contr. se tutti 8 car. sono copiati 

Se contr. neg. vai a pross. linea 

Carica A con zero 

Immagazzina valore in RAM 

Esegui per 8 volte 

Vai a ind.se non eseguito 

Esegui clear di carry per somma 

Carica A con byte LO 

Sommaci 8 

Immagazzina di nuovo 
Contr. se carry fissato 
Se neg. continua 

Controlla se byte HI punta al termine 
della routine di CHARROM 
Se neg. continua 


ce4c: 90 05 le 9f 9c le lf 9e 




Il Sistema Operativo del Commodore 128 


Pag. - 6 7 


ce54: 81 95 96 97 

98 

99 

9a 

9b 

TAVOLA DEI CODICI 

DI 

COLORE PER VDC 

ce5c: 00 Of 08 07 

Ob 

04 

02 

Od 

ce64: Oa Oc 09 06 

01 

05 

03 

0e 

TAVOLA DELLE POTENZE 

DI 

2 


ce6c: 80 40 20 10 

08 

04 

02 

01 


ce7 4 : 

00 

04 

00 

d8 

18 

00 

00 

27 

Queste tavole contengono i valori per 

ce7c : 

00 

00 

00 

00 

00 

18 

27 

00 

schermo a 40 colonne fino a SCE8C ed i 

ce84 : 

00 

Od 

Od 

00 

00 

00 

00 

00 

valori per 80 colonne fino a $CEA7. 

ce8c : 

00 

00 

00 

00 

00 

08 

18 

00 

Il resto della tavola contiene 

ce94 : 

00 

4f 

00 

00 

00 

00 

00 

18 

i valori delle stringhe assegnate 

ce9c: 

4 f 

00 

00 

07 

07 

00 

00 

00 

ai tasti funzione 

cea4 : 

00 

00 

00 

00 

07 

06 

Oa 

07 


ceac: 

06 

04 

05 

08 

09 

05 

47 

52 


ceb4 : 

41 

50 

48 

49 

43 

44 

4c 

4f 


cebc: 

41 

44 

22 

44 

49 

52 

45 

43 


cec4 : 

54 

4 f 

52 

59 

Od 

53 

43 

4e 


cecc: 

43 

4c 

52 

Od 

44 

53 

41 

56 


ced4 : 

45 

22 

52 

55 

4e 

Od 

4c 

49 


cede: 

53 

54 

Od 

4d 

4f 

4e 

49 

54 


cee4 : 

4f 

52 

Od 

44 

cc 

22 

2a 

Od 


ceec: 

52 

55 

4e 

Od 

48 

45 

4c 

50 


cef 4 : 

Od 










cef5 - cfff 


Area libera 
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ROUTINE DI RESET 


eOOO : 

a2 

ff 


ldx 

#$ff 

e002 : 

78 



sei 


e003 : 

9a 



txs 


e004 : 

d8 



cld 


eOO 5 : 

a9 

00 


Ida 

#$00 

e007 : 

8d 

00 

f f 

sta 

* $ff00 

eOOa : 

a2 

Oa 


ldx 

#$0a 

eOOc : 

bd 

4b 

eO 

Ida 

* $e04b r x 

eOOf : 

9d 

00 

d5 

sta 

* $d5 00 , x 

eO 12 : 

ca 



dex 


eO 13 : 

10 

f 7 


bpl 

* $e00c 

eO 15 : 

8d 

04 

Oa 

sta 

$ OaO 4 

eO 18 : 

20 

cd 

eO 

jsr 

* $e0cd 

eOlb: 

20 

fO 

el 

jsr 

* Self0 

eO le : 

20 

42 

e2 

jsr 

* $e242 

e021 : 

20 

09 

el 

jsr 

* $el09 

eO 2 4 : 

20 

3d 

f 6 

jsr 

* $f63d 

e02 7 : 

48 



pha 


e028 : 

30 

07 


bmi 

* $e031 

e02a : 

a9 

a5 


Ida 

#$a5 

e02c : 

cd 

02 

Oa 

cmp 

$0a02 

e02f : 

fO 

03 


beq 

* $e034 

eO 31 : 

20 

93 

eO 

jsr 

* $e093 

eO34 : 

20 

56 

eO 

jsr 

* $e056 

eO 37 : 

20 

00 

cO 

jsr 

* $c000 

e0 3a : 

68 



pia 


e03b: 

58 



eli 


e03c : 

30 

03 


bmi 

* $e041 

e03e: 

4c 

00 

bO 

jmp 

* $b000 

e041 : 

c9 

df 


cmp 

#$df 

eO 4 3 : 

fO 

03 


beq 

* $e048 

e04 5 : 

6c 

00 

Oa 

jmp 

($0a00) 

e048 : 

4c 

4b 

e2 

jmp 

* $e24b 


TAVOLA DI INIZIALIZZAZIONE PER MMU 


eO 4b : 

00 00 

($0000) 


e04d : 

00 00 

($0000) 


e04f : 

00 bf 

($bf00) 


e051 : 

04 00 

($0004) 


eO 5 3 : 

00 01 

($0100) 


eO 55 : 

00 a2 

($a200) 


ROUTINE KERNAL 

RESTOR 


e056 : 

a2 73 

ldx #$73 


e058 : 

aO eO 

ldy #$e0 


e05a : 

18 

eie 


ROUTINE KERNAL 

VECTOR 


e05b : 

86 c3 

stx $c3 [ 

memuss ] 

e05d : 

84 c4 

sty $c4 [ 

memuss+ 1 

e05f : 

aO lf 

ldy #$lf 


e061 : 

b9 14 03 

Ida $0314,y 


e064 : 

bO 02 

bes * $e068 


e066 : 

bl c3 

Ida ($c3),y 

( memuss 


Valore di iniz. per Stack 
Disabilita tutti gli interrupt. 

Fissa Stack di sistema per iniz. 

Reset del modo decimale 
Metti ZERO in A 

Abilita tutte le ROM di sistema 
Prep. ciclo e vis. contatore. 

Carica byte per iniz. contatore 

Inizializza reg. MMU 

Ciclo e vis. cont.-l 

Trasf. 11 valori da tavola 

Esegui un clear di NMI 

Vai a rou.IRQ.NMI+copy 

Contr.cod. CBM su RAMI 

Contr. cartr per config. C64 

Vai a Rout.IOINIT 

Contr. tast. per SHIFT RUN/STOP 

Salva A su Stack 

Fissa bit 7,salta contr.reset 

Punt.sisst.inizio 

Contr. per part.(WARM/START) 

Se contr.prec.pos. salta 

Vai a sub.RAMTAS contr.clear di RAM 

Vai a sub.RESTORE: Iniz. I/O 

Vai a CINT per iniz.editor di schermo 

Carica codice tastiera 

Abilita tutti gli interrupt 

Fissa bit 7.Salta ingresso monitor 

Vai a ingresso rout.Monitor 

Contr.conf. sist. come C64 

Contr. pos. esegui. 

Salta al vett.riprist.sistema 
Modo C64:configura come C64 


Registro di configurazione $D500 
Reg. A di preconfigurazione $D501 
Reg. B di " $D502 
Reg. C di " $D503 
Reg. D di " $D504 
Reg. di config. MODO 


Byte basso tav.vettore kernal 
Byte alto tav. vettore kernal 
Clear di carry per tav. vettori 


Byte basso in Pag. zero 
Byte alto in Pag. zero 
Fissa a 32 ciclo contatore 
Lett.byte da pag.3 tav. vettori 
Contr. agg. vai. se pos. salta 
Lett. vai. da tavola vettori 
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e068 : 

99 

14 03 

sta $0314,y 

eO 6b : 

90 

02 

bcc * $e06f 

eO 6d : 

91 

c3 

sta ($c3),y [ memuss 

e06f : 

88 


dey 

e07 0 : 

10 

ef 

bpl * $e061 

e072 : 

60 


rts 

TAVOLA DEI VETTORI 

e073 : 

65 

fa 

( $fa65) 

e075: 

03 

b0 

($b003) 

e077 : 

40 

fa 

($fa40) 

eO 7 9 : 

bd 

ef 

($efbd) 

eO 7b : 

88 

fi 

($f188) 

e07d : 

06 

fi 

($f106 ) 

e07f : 

4c 

fi 

($f14c) 

e081 : 

26 

f 2 

( $ f 2 2 6 ) 

e08 3 : 

06 

ef 

($ef06 ) 

e08 5 : 

79 

ef 

($ef79 ) 

e087 : 

6e 

f 6 

($f 66e) 

e089 : 

eb 

ee 

($eeeb) 

e08b : 

22 

f 2 

( $ f 2 2 2 ) 

e08d : 

06 

bO 

($b006) 

e08f : 

6c 

f 2 

($f 26c) 

e091 : 

4e 

f 5 

($f54e) 


ROUTINE KERNAL RAMTAS 


e09 3 : 

a9 

00 


Ida 

#$00 



e095 : 

a8 



tay 




e096 : 

99 

02 

00 

sta 

$0002,y 



e099 : 

c8 



iny 




e09a : 

dO 

fa 


bne 

* $e096 



e09c: 

aO 

Ob 


ldy 

#$0b 



eO 9e : 

84 

b3 


sty 

$b3 

’ tapelt 

1 

eOaO : 

85 

b2 


sta 

$b2 

! tapel ] 

1 

e0a2 : 

aO 

Oc 


ldy 

#$0c 



e0a4 : 

84 

c9 


sty 

$c9 

; ribuf+ 

1 

e0a6 : 

85 

c8 


sta 

$c8 

[ ribuf ' 

1 

e0a8 : 

aO 

Od 


ldy 

#$0d 



eOaa : 

84 

cb 


sty 

$cb 

' robuft 

1 

eOac : 

85 

ca 


sta 

$ca 

[ robuf ; 

1 

eOae : 

18 



eie 




eOaf : 

aO 

ff 


ldy 

#$ff- 



eObl : 

a2 

00 


Idx 

#$00 



e0b3 : 

20 

6b 

f 7 

jsr 

* $f76b 



e0b6 : 

aO 

le 


ldy 

# $ 1 c 



e0b8 : 

a2 

00 


ldx 

#$00 



eOba : 

20 

7a 

fi 

jsr 

* $f77a 



eObd : 

aO 

40 


ldy 

#$40 



eObf : 

a2 

00 


ldx 

#$00 



eOcl : 

8c 

01 

Oa 

sty 

$0a01 



e0c4 : 

8e 

00 

Oa 

stx 

$0a00 



e0c7 : 

a9 

a5 


Ida 

#$a5 



e0c9 : 

8d 

02 

Oa 

sta 

$0a02 



eOcc : 

60 



rts 





ROUTINE COPIA NMI, IRQ E PAG. 0 


Immag. in Pag.3 tavola vettori 
Contr. trasf. tavola vett. salta 
Copia in pag. indicizzata 
Decrera. di 1 ciclo contatore 
Ciclo trasf. tavola 


Vettore per ingresso IRQ 
Vettore ingresso monitor 
Vettore per ingresso NMI 
Vettore a Subr. Kernal OPEN 
" " CLOSE 

" " CHKIN 

" " CKOUT 

" " CLRCH 

" " BASIN 

" " BSOUT 

" " STOP 

" " GETIN 

" ” CLALL 

" Ingresso Extended Monitor 

" a Subr. Kernal LOADSP 
" " SAVESP 


Iniziai. A con $00 
Trasf. A in Y 

Esegui un clear su tutta Pag. 0 
Protez. porte process.da op. prec. 
Registri $00 e $01 

Fissa il puntatore del buffer di cass. 
] che si trova in Pag. 0 ($B2-$B3) all' 
indirizzo di partenza $0B00 
Esegui come sopra ma per INGRESSO RS 
] 232 ($C8 — $C9 ) per indir.part $0C00 
* * ★ 

Esegui come sopra ma per USCITA RS 
] 232 ($CA-$CB) per indir.part $ODOO 
*** 

Esegui un clear di carry 

Fissa la parte ALTA della memoria 

nei banchi a $FF00 

Vai a subr. MEMTOP 

Fissa la parte BASSA della memoria 

nei banchi a $1C00 

Vai a subr. MEMBOT 

Inizializza sistema 

Fissa il vettore di RESTART ad ind. 

$A00-$A01 con vai. $4000 per punto 

punto inizio sistema (COLD) 

Iniz.sistema (COLD-WARM) 

Puntatore prec. con $A5 


eOcd: aO 03 


ldy #$03 


Pred. cont.ciclo per 4 cicli 
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eOcf : 

b9 

05 

el 

Ida 

* $el05,y 

e0d2 : 

8d 

00 

ff 

sta 

* $ff00 

e Od 5 : 

a2 

3 f 


ldx 

#$3f 

e0d7 : 

bd 

05 

ff 

Ida 

* $ff05,x 

e Oda : 

9d 

05 

ff 

sta 

* $ff05 ,x 

eOdd : 

ca 



dex 


eOde : 

10 

f 7 


bpl 

* $e0d7 

eOeO : 

a2 

05 


ldx 

#?05 

e0e2 : 

bd 

fa 

ff 

Ida 

* $fffa,x [ nmivec 

e0e5 : 

9d 

fa 

ff 

sta 

* $fffa,x [ nmivec 

e0e8 : 

ca 



dex 


e0e9 : 

10 

f 7 


bpl 

* $e0e2 

eOeb : 

88 



dey 


eOec : 

10 

el 


bpl 

* $e0cf 

eOee : 

a2 

59 


ldx 

#$59 

eOf 0 : 

bd 

00 

f 8 

Ida 

* $f800,x 

eOf 3 : 

9d 

a2 

02 

sta 

$02a2,x 

eOf 6 : 

ca 



dex 


eOf 7: 

10 

il 


bpl 

* $e0f0 

eOf 9 : 

a2 

Oc 


ldx 

#$0c 

eOfb : 

bd 

5a 

f 8 

Ida 

* $f85a ,x 

eOf e.: 

9d 

fO 

03 

sta 

$03f 0, x 

elOl : 

'ca 



dex 


el02 : 

10 

f 7 


bpl 

* $e0fb 

el04 : 

60 



rts 


TAVOLA DEI BANCHI RAM 

el 05 : 

00 

40 



($4000) 

el07 : 

80 

cO 



($c080 ) 

ROUTINE KERNAL 

IOINIT 


el 09 : 

a9 

7 f 


Ida 

#$7f 


el Ob : 

8d 

Od 

de 

sta 

* $dc0d 


el Oe : 

8d 

Od 

dd 

sta 

* $dd0d 


elll : 

8d 

00 

de 

sta 

* $dc00 


el 14 : 

a9 

08 


Ida 

#$08 


el 16 : 

8d 

Oe 

de 

sta 

* $dc0e 


ell9: 

8d 

Oe 

dd 

sta 

* $dd0e 


elle: 

8d 

Of 

de 

sta 

* $dc0f 


ellf : 

8d 

Of 

dd 

sta 

* $dd0f 


el 22 : 

a2 

00 


ldx 

#$00 


el 24 : 

8e 

03 

de 

stx 

* $dc03 


el 2 7 : 

8e 

03 

dd 

stx 

* $dd03 


el2a : 

ca 



dex 



el 2b : 

8e 

02 

de 

stx 

* $dc02 


el 2e : 

à9 

07 


Ida 

#$07 


el 3 0 : 

8d 

00 

dd 

sta 

* $dd00 


el 33 : 

a9 

3f 


Ida 

#$3f 


el 35 : 

8d 

02 

dd 

sta 

* $dd02 


el 38 : 

a9 

e3 


Ida 

#$e3 


el 3a : 

85 

01 


sta 

$01 [ 

r6510 ] 

el 3c : 

a9 

2 f 


Ida 

#$2f 


el 3e : 

85 

00 


sta 

$00 ( 

d6510 ] 

el 40 : 

a2 

ff 


ldx 

#$ff 


el 42 : 

ad 

11 

dO 

Ida 

* $d011 


el 45 : 

10 

fb 


bpl 

* $el42 


el 4 7 : 

a9 

08 


Ida 

#$08 



Carica vai. da banco RAM 

Fissa config. corisp. prec.valore 

Trasfer. 64 Bytes 

Carica da ROM NMI+IRQ 

Copia in RAM 

Decr. cont. di 1 

Ciclo trasf 64 bytes 

Con questa rout. i vettori di NMI, 

RESET e IRQ sono copiati dalla ROM 

(ZONA KERNAL) nella RAM anzidetta 

Il ciclo continua fino a quando i 

valori dei 3 vett. siano trasf. 

Decr. cont. di ciclo di 1 
Routine di copia vett. in RAM 
Trasf. 90 bytes 

Con questa routine vengono trasferite 
in RAM alle pag. 2 e 3 le routines 
FETCH,STASH,CMPARE,JSRFAR,JMPFAR 
cosi' come sono 
Trasf. dei 13 Bytes 
Questa routine si comporta 
come quella descritta in prec 
per la RAM pero' di indirizzo $03F0 
* * * 


RAM 0 e 1 
RAM 2 e 3 


Carica valore per interrupt 

Iniz. ICR del CIA 1 

Iniz. ICR del CIA 2 

Iniz. porta A CIA 1 

Iniz. timer 

CRA del CIA 1 timer A 

CRA del CIA 2 timer A 

CRA del CIA 1 timer B 

CRA del CIA 2 timer B 

Registro CIA per modo input 

Registro dir. dati B del CIA 1 

Registro dir. dati B del CIA 2 

Reg. X per MODO OUTPUT 

Registro dir. dati A del CIA 1 

Fissa video contr. ai 16k di mem.+ba 

Seg. ATN su A,clear CIA2 

Fissa bits 0-5 per uscita dati 

Registro dir. dati A del CIA 2 

Iniz. reg.dati porta proc. 

con valore di default ($E3) 

Come sopra ma con valore di 

default $2F 

Iniz. punt PAL/NTSC 

Ciclo di attesa fino a quando MSB di 
linea raster sia fissato 
Confr. vai PAL/NTSC 
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el49 

cd 

12 

dO 

emp 

* $d012 


el 4c 

90 

06 


bcc 

* $el54 


el 4e 

ad 

11 

dO 

Ida 

* $d011 


el 51 

30 

f 4 


bmi 

* Sei47 


el53 

e8 



inx 



el 54 

8e 

03 

Oa 

stx 

$0a03 


el57 

a9 

00 


Ida 

#$00 


el 59 

8d 

37 

Oa 

sta 

$0a37 


el5c 

8d 

39 

Oa 

sta 

$0a39 


el 5f 

8d 

Oa 

Oa 

sta 

SOaOa 


el62 

8d 

3a 

Oa 

sta 

$0a3a 


el65 

8d 

36 

Oa 

sta 

S0a36 


el68 

85 

99 


sta 

$99 [ 

dfltn] 

el6a 

a9 

03 


Ida 

#$03 


el6c 

85 

9a 


sta 

$9a [ 

df Ito 

el6e 

a2 

30 


ldx 

#$30 


el7 0 

bd 

c7 

e2 

Ida 

* $e2c7,x 


el73 

9d 

00 

dO 

sta 

* $d000,x 


el76 

ca 



dex 



el 77 

10 

f 7 


bpl 

* $el70 


el79 

a2 

00 


ldx 

#$00 


el 7b 

20 

de 

el 

jsr 

* $eldc 


el 7e 

ad 

00 

d6 

Ida 

* $d600 


el 81 

29 

07 


and 

#$07 


el83 

fO 

05 


beq 

* $el8a 


el 85 

a2 

3b 


ldx 

#$3b 


el 87 

20 

de 

el 

jsr 

* $eldc 


el 8a 

2c 

03 

Oa 

bit 

$0a03 


el 8d 

10 

05 


bpl 

* $el94 


el 8f 

a2 

3e 


ldx 

#$3e 


el91 

20 

de 

el 

jsr 

* $eldc 


el 94 

ad 

04 

Oa 

Ida 

$0a04 


el97 

30 

15 


bmi 

* $elae 


el99 

20 

27 

cO 

jsr 

* $c027 


el9c 

a9 

80 


Ida 

#$80 


el9e 

Od 

04 

Oa 

ora 

$0a04 


elal 

8d 

04 

Oa 

sta 

$0a04 


ela4 

a2 

ff 


ldx 

#$ff 


ela6 

aO 

f f 


ldy 

#$ff 


ela8 

88 



dey 



ela9 

dO 

fd 


bne 

* $ela8 


elab 

ca 



dex 



elac 

dO 

fa 


bne 

* $ela8 


elae 

a9 

00 


Ida 

#$00 


elbO 

a2 

18 


ldx 

#$18 


elb2 

9d 

00 

d4 

sta 

* $d400,x 


elb5 

ca 



dex 



elb6 

10 

fa 


bpl 

* $elb2 


elb8 

a2 

01 


ldx 

#$01 


elba 

8e 

la 

dO 

stx 

* $d01a 


elbd 

ca 



dex 



elbe 

8e 

le 

Oa 

stx 

$0alc 


elei 

8e 

Of 

Oa 

stx 

$0a0f 


elc4 

ca 



dex 



elc5 

8e 

06 

de 

stx 

* $dc06 


elc8 

8e 

07 

de 

stx 

* $dc07 


elcb 

a2 

11 


ldx 

#$11 


elcd 

8e 

Of 

de 

stx 

* $dc0f 


eldO 

20 

c3 

e5 

jsr 

* $e5c3 


eld3 

20 

d6 

e5 

jsr 

* $e5d6 



Confr. byte basso RASTER 
Se inf. a 8 e' versione PAL 
Attendi fino a che MSB della linea 
RASTER sia messa a 0 
Fissa punt. PAL/NTSC a NTSC ($0) 

Immag. in X att. punt PAL/NTSC 
Iniz. vai. per punt. 

Immag. temp. per operaz. banchi 

Immag. temp. per VDC 80 colonne 

Idem IRQ cassetta 

Iniz. temp. punt. IRQ 

Fissa linea RASTER per RASTER interru 

La perif. standard (ingr) =tast. 

Fissa immag. in pag. 0 a 3 per perif 
in uscita (schermo) 

Trasferisci 49 Bytes 

Tavola di inizializz per int. VIC 

Copia q.s. nei reg. di controllo 

Dim. ciclo di 1 

Ciclo trasf. 49 valori 

Fissa ciclo cont.per iniz. VDC 

Inizializza reg. VDC 

Leggi status VDC 

Contr. per clear bits 0-2 

Se.pos. salta iniz. reg. VDC 

Sposta punt. a tavola VDC 

Inizializza reg. VDC 

Controllo per vers PAL/NTSC 

Salta se versione NTSC 

Spostam. punt. alla tavola VDC 

Iniziali, regsitri VDC 

Controllo punt.status reset NMI 

Se VDC già' iniz. salta 

Vai a rout. INIT80 

Bit 7 in A 

Esegui OR con st. NMI/VDC 
Scrivilo in FLAG di Status 
Cont.ciclo alto al max. vai. 

Cont.ciclo basso al min. 

Decr. ciclo cont. basso 

Contr.ciclo cod. basso.Se neg.cont. 

Decr. ciclo cont. alto 

Contr. ciclo alto.Se neg cont. 

Iniz. valore per reg. SID 
Puntatore e ciclo SID 
Esegui un clear sul SID 
Ciclo e decr. punt 
Ciclo e contr. cane.19 reg. 

Carica X con #1 

Fissa reg. IRQ 

Decr.fino a 0 X 

Esegui un clear punt.seriale 

Esegui clear RS-232 NMI 

Fissa X a $FF (vai. alto 

Immetti vai. in timer B basso 

Immetti vai. in timer B alto 

Car. cod. per carie.forzato e timer A 

Iniz. reg. contr. CIA 

Routine di controllo per modo FAST 

seriale per unita' a dischi 
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eld6 : 

20 

c3 

e5 

jsr 

* $e5c3 

eld9 : 

4 c 

4e 

e5 

jmp 

* $e54e 

eldc : 

bc 

f 8 

e2 

ldy 

* $e2f 8,x 

eldf : 

30 

Od 


bmi 

* $elee 

elei : 

e8 



inx 


ele2 : 

bd 

f 8 

e2 

Ida 

* $e2f8 , x 

ele5 : 

e8 



inx 


ele6 : 

8c 

00 

d6 

sty 

* $d600 

ele9 : 

8d 

01 

d6 

sta 

* $d601 

elee: 

10 

ee 


bpl 

* $eldc 

elee : 

e8 



inx 


elef : 

60 



rts 


CONTROLLO PER CODICE CBM IN RAM 

elfO: 

a2 

f 5 


ldx 

#$f 5 

elf 2 : 

aO 

f f 


ldy 

#$ff 

el f 4 : 

86 

c3 


stx 

Sc3 [ memuss ] 

elf 6 : 

84 

c4 


sty 

$c4 [ memuss+ 1 

elf 8 : 

a9 

c3 


Ida 

#$c3 

el fa : 

8d 

aa 

02 

sta 

$0 2aa 

elfd: 

a0 

02 


ldy 

#$02 

elf f : 

a2 

7 f 


ldx 

#$7f 

e201 : 

20 

a2 

02 

jsr 

$02a2 

e204 : 

d9 

c4 

e2 

emp 

* $e2c4,y 

e207 : 

dO 

lb 


bne 

* $e224 

e209 : 

88 



dey 


e2 0a : 

10 

f 3 


bpl 

* $elff 

e20c : 

a2 

f 8 


ldx 

#$f 8 

e20e : 

aO 

ff 


ldy 

#$ff 

e210 : 

86 

c3 


stx 

$c3 [ memuss ] 

e212 : 

84 

c4 


sty 

$c4 [ memusst 1 

e214 : 

aO 

01 


ldy 

#$01 

e216 : 

a2 

7 f 


ldx 

#$7f 

e218 : 

20 

a2 

02 

jsr 

$0 2a2 

e21b: 

99 

02 

00 

sta 

$0002,y 

e21e : 

88 



dey 


e21f : 

10 

f 5 


bpl 

* $e216 

e221 : 

6c 

02 

00 

jmp 

($0002 ) 

e224 : 

a9 

40 


Ida 

#$40 

e226: 

8d 

00 

f f 

sta 

* $ff00 

e229 : 

a9 

24 


Ida 

#$24 

e22b : 

aO 

e2 


ldy 

#$e2 

e22d: 

8d 

f 8 

ff 

sta 

* $fff8 [ cl28vec 

e230 : 

8c 

f 9 

f f 

sty 

* $fff9 

e2 3 3 : 

a2 

03 


ldx 

#$03 

e2 3 5 : 

bd 

c3 

e2 

Ida 

* $e2c3,x 

e2 3 8 : 

9d 

f 4 

ff 

sta 

* $fff4 , x 

e23b: 

ca 



dex 


e23c : 

d0 

f 7 


bne 

* $e235 

e23e : 

8e 

00 

f f 

stx 

* $ff00 

e741: 

60 



rts 


CONTROLLO PER 3 

EXTRAROM 

e242 : 

ad 

05 

d5 

Ida 

* $d505 

e2 4 5 : 

29 

30 


and 

#$30 

e24 7 : 

c9 

30 


emp 

#$30 

e249 : 

fO 

20 


beq 

* $e26b 

e24b : 

a9 

e3 


Ida 

#$e3 


Rif. rout. prec a segnale basso 
Se contr. pos. esegui RTS 
Carica sei. regist.da tavola 
Controllo bit 7 ON 
Increm. 1 tavola VDC 
Carica A con vai da tavola 
Incr. tavola VDC di 1 
Fissa porta di sel.reg.VDC 
Metti in A reg. prec. 

Vai al ciclo di inizio 
Incr. tavola VDC 1 


Iniz.2 Byte in pag. 0 con i valori 
$C3 (LO) e $C4 (HI) per 1' indirizzo 
iniziale della tavola vettori kernal 
| di indirizzo $FFF5 
Fissa FETVEC per la inizializzione 
routine di inizio tav. vettori 
Spostam. per rout. FETCH 
Cod. di conf(valido solo RAM 1) 

Rout. FETCH 

Controllo codici C B M 
Se diversi esci 

Esegui ciclo per controllo delle 
3 lettere precedenti 
Iniz. i due byte di pag.0 
Punt. a ind. $C3 (LO) e $C4 (HI) 
Indirizzi Kernal 128 
] Vettore di ind. prec. (SFFF8) 

Codice di configur. per rout. FETCH 

per solo RAM 1 

Salta a rout. FETCH 

Immetti ind.ingr. (LO-HI) in pagina 

zero per $02-$03 

Ciclo per trasf. indirizzi 

Salto indir, via pag. zero 

RAM 1, abilita tutte le ROM 

Fissa la config. 

Iniz. i 2 bytes del vettore KERNAL 
per il modo 128 con il valore 
di default che viene quindi fissato in 
$E224 

Cont. ciclo trasf.3 valori 

Carica C B M da tavola 

Copia su vett.spazio RAM banco 1 

Ciclo che controlla trasf. delle 

3 lettere viste sopra 

RAM 0, abilita tutta la ROM 


Leggi reg. MCR di MMU 

Contr. se bit 5 e' stato fissato per 

esecuzione EXROM 

Se pos. nessun cartr. C64 e' presente 
Carica i valori del C64 sulla porta 
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e24d: 

85 

01 


sta 

$01 [ 

r6510 ] 

e24f : 

a9 

2f 


Ida 

#$2f 


e251 : 

85 

00 


sta 

$00 [ 

d6510 ] 

e253 : 

a2 

08 


ldx 

#$08 


e255 : 

bd 

62 

e2 

Ida 

* $e262,x 


e2 58 : 

95 

01 


sta 

$01,x [ 

r6510 ] 

e25a: 

c a 



dex 



e25b: 

dO 

f 8 


bne 

* $e255 


e2 5d: 

8e 

30 

dO 

stx 

* $d030 


e260 : 

4c 

02 

00 

jmp 

$0002 


e263 : 

a9 

f 7 


Ida 

#$f 7 


e265 : 

8d 

05 

d5 

sta 

* $d505 


e268 : 

6c 

f c 

ff 

jmp 

(* $fffc) 

[ resvec ] 

e26b : 

a2 

03 


ldx 

#$03 


e26d: 

8e 

cO 

Oa 

stx 

$0ac0 


e270 : 

a9 

00 


Ida 

#$00 


e272 : 

9d 

cl 

Oa 

sta 

$0acl,x 


e275 : 

ca 



dex 



e276 : 

10 

fa 


bpl 

* $e272 


e278 : 

85 

9e 


sta 

$9e 

[ ptrl ] 

e27a: 

aO 

09 


ldy 

#$09 


e2 7c : 

ae 

cO 

Oa 

ldx 

$0ac0 


e27f : 

bd 

bc 

e2 

Ida 

* $e2bc,x 


e282 : 

85 

9f 


sta 

$9f 

[ ptr2 ] 

e284 : 

bd 

cO 

e2 

Ida 

* $e2c0,x 


e287 : 

85 

02 


sta 

$02 

[ bank ] 

e289 : 

a6 

02 


ldx 

$02 

{ bank ] 

E28b : 

a9 

9e 


Ida 

#$9e 


e2 8d: 

20 

dO 

f 7 

jsr 

* $f 7d0 


e2 90 : 

d9 

bd 

e2 

emp 

* $e2bd,y 


e293 : 

dO 

21 


bne 

* $e2b6 


e295 : 

88 



dey 



e296 : 

cO 

07 


cpy 

#$07 


e298 : 

bO 

ef 


bes 

* $e289 


e29a : 

a6 

02 


ldx 

$02 

[ bank ] 

e29c : 

a9 

9e 


Ida 

#$9e 


e29e : 

20 

dO 

f 7 

jsr 

* $f 7d0 


e2al : 

ae 

cO 

Oa 

ldx 

$0ac0 


e2a4 : 

9d 

cl 

Oa 

sta 

$0acl,x 


e2a7 : 

c9 

01 


emp 

#$01 


e2a9 : 

dO 

Ob 


bne 

* $e2b6 


e2ab: 

a5 

9e 


Ida 

$9e 

[ ptrl ] 

e2ad : 

a 4 

9f 


ldy 

$9f 

[ ptr2 ] 

e2af : 

85 

04 


sta 

$04 

[ pc-lo ] 

e2bl : 

84 

03 


sty 

$03 

[ pc-hi ] 

e2b3 : 

20 

cd 

02 

jsr 

$02cd 


e2b6 : 

ce 

cO 

Oa 

dee 

$0ac0 


e2b9 : 

10 

bf 


bpl 

* $e27a 


e2bb : 

60 



rts 




del proce.(registro dati) 

Come sopra nel reg. di 
direzione dati 
Copia gli 8 bytes 
Con questa Rout. la ROM orig. 
con tutti i sui valori e ' copiata 
nella pagina 0 perche' le rout. pos 
girare solo qui 
Metti il clock a lMhz 
Conf. quindi C64 
Scrivi vai. iniz. sist. C64 
nei reg MCR di MMU 
] Vai a vettore di RESET C64 
Iniz. ciclo e vis. contato, 
per contr. pres. cartridge 
Esegui un clear dei primi 4 Bytes 
del PAT cioè' della tavola di indir 
fisico della EXP. Cart 
Se $00 e' inizializ. 

Immag.ind.LO per contr. cartridge 
Spost. codice Cart. 

Spost. cont. per contr. cart 
Carica ind. HI da tavola 
Immetti in pag. 0 

Carica da tav. vai.banco per contr. 
Immetti byte banco in pag.O 
Carica cod. banco da pag. 0 
Metti in A ind. $9E come VETVEC 
Vai a INDFET 

Contr. 1 car., per codice CBM 
Se diverso,pross.ind. banco 
Continua contr. per cod. CBM 
Se le tre lett. sono rie.cont. 

Se no ciclo 

Carica cod.banco per contr. 

Metti in A ind.$9E come FETVEC 
Vai a rout. INDFET 
Carica punt. spost. ROM 
Immag.tavola ident. espans. 
Controlla espans. indicata 
Se div. vai al pross. contr. 

Metti in A punt. ind.ingr. 

Metti in Y c.s. 

Ind.ingr LO in PC-LO 
Ind.ingr HI in PC-HI 
Vai a JSRFAR 
Decr. di 1 cont. spost. 

Se diverso da 0 continua 


INDIRIZZI ALTI PER CONTROLLO CARTRIDGE 

e2bc: cO 80 cO 80 $COOO, $8000 

NUMERO BANCHI PER CONTROLLO CARTRIDGE 

e2c0: 04 04 08 08 


CODICI PER INDICAZIONI CARTRIDGE 
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e2c4 : 

43 

42 

4d 






cbm 

TAVOLA DI 

INIZIALIZZAZIONE 

PER 

REGISTRI 

e2c7 : 

00 

00 

00 

00 

00 

00 

00 

00 


e2cf : 

00 

00 

00 

00 

00 

00 

00 

00 


e2d7 : 

00 

lb 

ff 

00 

00 

00 

08 

00 


e2df : 

14 

ff 

01 

00 

00 

00 

00 

00 


e2e7 : 

Od 

Ob 

01 

02 

03 

01 

02 

00 


e2ef : 

01 

02 

03 

04 

05 

06 

07 

ff 


e2f 7 : 

f c 









TAVOLA DI 

INIZIALIZZAZIONE 

PER 

REGISTRI 

e2f 8 : 

00 

7e 

01 

50 

02 

66 

03 

49 


e300 : 

04 

20 

05 

00 

06 

19 

07 

ld 


e308 : 

08 

00 

09 

07 

0a 

20 

Ob 

07 


e310 : 

Oc 

00 

Od 

00 

Oe 

00 

Of 

00 


e318 : 

14 

08 

15 

00 

17 

08 

18 

20 


e320 : 

19 

40 

la 

fO 

lb 

00 

le 

20 


e328 : 

ld 

07 

22 

7d 

23 

64 

24 

05 


e330 : 

16 

78 

ff 

19 

47 

ff 

04 

27 


e338 : 

07 

20 

ff 








ROUTINES KERNAL TALK E LISTN 


é3 3b: 

09 

40 


ora 

#$40 


e33d : 

2c 



byte 

$2c 


e3 3e': 

09 

20 


ora 

#$20 


e340 : 

20 

ec 

e7 

jsr 

* $e7ec 


e3 4 3 : 

48 



pha 



e344 : 

24 

94 


bit 

$94 [ 

c3p0 

e34 6 : 

10 

Oa 


bpl 

* $e352 

e34 8 : 

38 



sec 



e349 : 

66 

a3 


ror 

$a3 [ 

pcntr 

e34b : 

20 

8c 

e3 

jsr 

* $e38c 


e34e : 

46 

94 


lsr 

$94 [ 

c3p0 

e35 0 : 

46 

a3 


lsr 

$a3 [ 

pcntr 

e352 : 

68 



pia 



e353 : 

85 

95 


sta 

$95 [ 

bsour 

e3 5 5 : 

20 

73 

e5 

jsr 

* $e573 


e358 : 

20 

57 

e5 

jsr 

* $e557 


e35b: 

ad 

00 

dd 

Ida 

* $dd00 


e35e : 

29 

08 


and 

#$08 


e360 : 

dO 

12 


bne 

* $e374 


e362 : 

20 

d6 

e5 

jsr 

* $e5d6 


e 3 6 5 : 

a9 

ff 


Ida 

#$ff 


e367 : 

8d 

Oc 

de 

sta 

* $dc0c 


e36a : 

20 

bc 

e5 

jsr 

* $e5bc 


e36d : 

8a 



txa 



e36e : 

a2 

14 


ldx 

#$14 


e37 0 : 

ca 



dex 



e371 : 

dO 

fd 


bne 

* $e370 


e37 3 : 

aa 



tax 



e3 74 : 

ad 

00 

dd 

Ida 

* $dd00 


e37 7 : 

09 

08 


ora 

#$08 


e379 : 

8d 

00 

dd 

sta 

* $dd00 


e37c : 

20 

73 

e5 

jsr 

* $e57 3 


e37f : 

20 

4e 

e5 

jsr 

* $e54e 



Fissa bit 6 per TALK 
Vai a $e340 

Fissa bit 5 per operaz. di LISTEN 
Attendi per fine trasf RS-232 
Salva su Stack segn. Talk/Listn 
Contr. per altro byte in uscita 
Contr.neg.continua 
Fissa il carry per rot. 

Fissa Flag per EOI 

Uscita byte su bus seriale 

Cane, caratt.nel segn.buffer 

Clear del flag EOI 

Riprist.vecchio A 

Immag. byte uscita pag. 0 

Disabilita sprite.(1MHz) 

Metti HI uscita dati 

Contr. se segn. ATN e' fissato 

Contr. porta A CIA 2 

Se contr. neg. salta 

Impulso per modo serial. FAST 

Fis. I/O dati buffer seriale 

Immag. trasf. valore HI 

Attesa risposta Bus 

Immag. X in A 

Fissa cont. ciclo a 20 

Decr. cont.ciclo di 1 

Attesa ciclo conto alla rov. 

Ripris. cont. prec. X 

Leggi vai. porta A CIA 2 

Fissa in LO segnale di ATN e riscrivi. 

su porta A del CIA 2 

Freq. clock 1 MHz. Dis. sprites 

Uscita clock basso 
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e382 

20 

57 

e5 

jsr 

* 

$e557 


Uscita clock alto 

e385 

8a 



txa 




Immag. in A cont. X 

e386 

a2 

b8 


ldx 

#Sb8 


Metti a 184 cont.ciclo 

e388 

ca 



dex 




Decr. cont. ciclo di 1 

e389 

dO 

f d 


bne 

* 

$e388 


Ciclo fino a cont.=0 

e38b 

aa 



tax 




Riprist. cont. reg. X 

e38c 

20 

73 

e5 

jsr 

* 

$e57 3 


Freq. clock 1 MHz. Dis. sprite 

e38f 

20 

57 

e5 

jsr 

* 

$e557 


Metti HI uscita dati 

e392 

20 

69 

e5 

jsr 

* 

$e569 


Metti in carry bit da bus seriale 

e395 

90 

03 


bcc 

* 

$e39a 


Contr.dati non LO.Se pos salta 

e397 

4c 

28 

e4 

jmp 

★ 

$e428 


segn. di DEVICE NOT PRESENT 

e39a 

2c 

Od 

de 

bit 

* 

$dc0d 


Contr. reg.interrupt CIA 

e39d 

20 

45 

e5 

jsr 

* 

$e545 


Uscita clock alta 

e3a0 

24 

a3 


bit 

$a3 

[ pcntr ] 

Contr.fiss.punt.Pag.0 per EOI 

e3a2 

10 

Oa 


bpl 

* 

$e3ae 


Se contr. neg. salta 

e3a4 

20 

69 

e5 

jsr 

* 

$e569 


Metti in carry bit da bus seriale 

e3a7 

90 

fb 


bcc 

★ 

$e3a4 


Att.fino a segnale data LO 

e3a9 

20 

69 

e5 

jsr 

* 

$e569 


Come prec. 

e3ac 

bO 

fb 


bes 

* 

$e3a9 


Att.fino a segnale data HI 

e3ae 

ad 

00 

dd 

Ida 

* 

$dd00 


In questa rout. i dati sono letti 

e3bl 

cd 

00 

dd 

emp 

* 

$dd00 


dalla porta A del CIA 2 

e3b4 

dO 

f 8 


bne 

* 

$e3ae 


Controllo diff. 

è3b6 

48 



pha 




I dati letti imm. in Stack 

e3b7 

ad 

Od 

de 

Ida 

* 

$dc0d 


Contr. reg. di interrupt 

e3ba 

29 

08 


and 

#$08 


Verif. se timer A attivo 

e3bc 

fO 

05 


beq 

* 

$e3c3 


Se pos. salta 

e3be 

a9 

cO 


Ida 

#$c0 


Fissa bits 6 e 7 nei punt. di sist. 

e3c0 

8d 

le 

Oa 

sta 

$0alc 


per modo seriale FAST 

e3c3 

68 



pia 




Metti in A dati rii. da STACK 

e3c4 

10 

e8 


bpl 

* 

$e3ae 


Bit 7 clear quindi salta a rout. 

e3c6 

09 

10 


ora 

#$10 


Metti a 1 bit 4 per uscita Clock su 

e3c8 

8d 

00 

dd 

sta 

* 

$dd0 0 


bus seriale e scrivi su porta A 

e3cb 

29 

08 


and 

#$08 


Controllo se bit 3 a 1 

e3cd 

dO 

13 


bne 

★ 

$e3e2 


Se neg. salta 

e3cf 

2c 

le 

Oa 

bit 

$0alc 


Contr. bit 7 

e3d2 

10 

Oe 


bpl 

★ 

$e3e2 


Se bit 7 =0 salta. 

e3d4 

20 

d6 

e5 

jsr 

* 

$e5d6 


Segn. per modo seriale FAST 

e3d7 

a5 

95 


Ida 

$95 [ 

bsour ] 

Carica byte immag. in prec e scrivilo 

e3d9 

8d 

Oc 

de 

sta 

★ 

$dc0c 


sul registro di I/O del CIA 

e3dc 

20 

bc 

e5 

jsr 

* 

$e5bc 


Attesa risposta dal bus 

e3df 

4c 

12 

e4 

jmp 

* 

$e412 


Byte in uscita su bus seriale 

e3e2 

a9 

08 


Ida 

#$08 


Iniz. contatore per n. di bits da 

e3e4 

85 

a5 


sta 

$a5 [ 

cntdn ] 

inviare con 8 

e3e6 

ad 

00 

dd 

Ida 

* 

$dd00 


Rout. di lettura dati dalla 

e3e9 

cd 

00 

dd 

emp 

★ 

$dd00 


porta A del CIA 2 

e3ec 

dO 

f 8 


bne 

* 

$e3e6 



e3ee 

Oa 



asl 

a 



Dati spos.(sin) in flag di carry 

e3ef 

90 

34 


bcc 

★ 

$e425 


Uscita dati alti 

e3f 1 

66 

95 


ror 

$95 [ 

bsour ] 

Prepara bit per uscita 

e3f 3 

bO 

05 


bes 

* 

$e3f a 


Contr. se bit = 1 

e3f 5 

20 

60 

e5 

jsr 

* 

$e560 


Se neg. fai uscire dati LO 

e3f 8 

dO 

03 


bne 

* 

$e3f d 


Salta quindi al Clock uscita HI 

e3fa 

20 

57 

e5 

jsr 

* 

$e557 


Uscita dati HI 

e3fd 

20 

45 

e5 

jsr 

* 

$e545 


Uscita Clock HI 

e4 00 

ea 



nop 




Nessuna operazione 

e401 

ea 



nop 




" " 

e402 

ea 



nop 




M II 

e403 

ea 



nop 




" " 

e4 04 

ad 

00 

dd 

Ida 

* 

$dd0 0 


Leggi la porta A del CIA 2 

e407 

29 

df 


and 

#$df 


Eseg.clear dati use.bus seriale 



e409: 09 IO ora #$10 

e4Ob : 8d 00 dd sta * $dd00 

e40e: c6 a5 dee $a5 [ cntdn ] 

e410: dO d4 bne * $e3e6 

e412 : 8a txa 

e413: 48 pha 

e414 : a2 22 ldx #$22 

e416: 20 69 e5 jsr * $e569 

e419: bO 05 bes * $e420 

e41b: 68 pia 

e41cs aa tax 

e41d: 4c 9f e5 jmp * $e59f 

e420: ca dex 

e421 : dO f3 bne * $e416 

e423 : 68 pia 

e424: aa tax 

e425: a9 03 Ida #$03 

e427: 2c .byte $2c 9 

e428: a9 80 Ida #$80 

e42a: 48 pha 

e42b: ad le Oa Ida $0alc 

e42e : 29 7f and #$7f 

e430: 8d le Oa sta $0alc 

e4 3 3: 68 pia 

e4 34: 20 57 f7 jsr * $f757 

e4 37: 20 9f e5 jsr * $e59f 

e43a: 18 eie 

e43b: 4c 35 e5 jmp * $e535 

e43e: 20 73 e5 jsr * $e573 

e441: a9 00 Ida #$00 

e443: 85 a5 sta $a5 [ cntdn ] 

e445: 2c Od de bit * $dcOd 

e448 : 8a txa 

e449: 48 pha 

e44a: 20 45 e5 jsr * $e545 

e44d: 20 69 e5 jsr * $e569 

e450 : 10 fb bpl * $e44d 

e452: a2 Od ldx #$0d 

e454 : ad 00 dd Ida * $dd00 

e457 : 29 df and #$df 

e459 : 8d 00 dd sta * $dd00 

e45c: ad 00 dd Ida * $dd00 

e45f: ed 00 dd emp * $dd00 

e462: dO f8 bne * $e45c 

e464: Oa asl a 

e465: 10 ld bpl * $e484 

e467: ca dex 

e468: dO f2 bne * $e45c 

e46a: a5 a5 Ida $a5 [ cntdn ] 

e46c: dO Of bne * $e47d 

e46e: 20 60 e5 jsr * $e560 

e471 : 20 45 e5 jsr * $e545 

e474 : a9 40 Ida #$40 

e4 76 : 20 57 f7 jsr * $f757 

e479: e6 a5 ine $a5 [ cntdn ] 

e47b: dO d5 bne * $e452 

e47d: 68 pia 

e47e: aa tax 

e47f: a9 02 Ida #$02 

e481: 4c 2a e4 jmp * $e42a 


Fissa uscita clock bus seriale 

Scritt.dati porta A 

Decr.cont-bit di 1 

Bit uscita add.Quindi ciclo 

Copia X in A 

Immag. X in Stack 

Cont.impul Hi a #34 

Metti 1 bit dal bus seriale sul carry 

Metti i data HI poi salta 

Prendi il cont.vecchio reg. X dallo 

Stack ed esegui un Restore 

Reset freq. clock 

Decrem. di 1 contat. data HI 

Contr. se 22 imp. HI.Se neg. cont. 

Ripren.cont.vecchio X da Stack e ripr. 

contenuti di X 

Codice per stato sistema 

Vai a $e42a 

Device not present 

Immag. su Stack codice Status 

Controlla punt.modo seri.FAST 

Mask out bit 7 

Scrivi su flag FAST 

Preleva cod. errore 

Fissa nuovo status del sistema 

Esegui Reset freq. clock 

Clear carry per ind. di OK 

Disab perif. con UNLSN 

Metti clock di siste a 1MHz.Dis.sprit 

Esegui un Clear su punt.pag.O per 

indicatore seriale EOI 

Leggi bit 7 del CIA 

Immag. in A att. vai X 

per mezzo di A su Stack 

Manda segn. di clock su porta A 

Metti bit da bus seriale su Carry 

Attesa per segn. dati alto 

Iniz.cont.ciclo con #13 

Leggi dati porta A di CIA 2 

Eseg.clear bit 6.Att.imp.bus seriale 

Scrivi dati su porta A 

Leggi dati da porta A del CIA 2 

Arrivo di un bit sul bus seriale 

alla porta 

Sposta bit dati sul carry 
Preleva un byte dal bus 
Decrementa cont. cicli di 1 
Contr.ciclo non 0 quindi salta 
Contr.punt. EOI in Pag. 0 
Se prec #0 EOI rice.Quindi salta 
Manda segn.data LO su bus seriale 
Segnale clock alto su bus seriale 
Cod. status linea EOI 
Reset di sistema 
Punt. EOI 

Metti byte dati su EOI 
Ripr cont. X 
Usa A da Stack 
Cod. status per lettura 
Reset di sistema 
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e484 : 

a2 

08 


ldx 

#$08 


e4 86 : 

ad 

Od 

de 

Ida 

* $dc0d 


e489 : 

29 

08 


and 

#$08 


e4 8b : 

dO 

28 


bne 

* $e4b5 


e4 8d : 

ad 

00 

dd 

Ida 

* $dd00 


e4 90 : 

cd 

00 

dd 

emp 

* $dd00 


e493 : 

dO 

f 8 


bne 

* $e48d 


e4 95 : 

0a 



asl 

a 


e496 : 

10 

ee 


bpl 

* $e486 


e4 98 : 

66 

a4 


ror 

$a4 | 

firt ] 

e4 9a : 

ad 

00 

dd 

Ida 

* $dd00 


e49d: 

cd 

00 

dd 

emp 

* $dd00 


e4a0 : 

dO 

f 8 


bne 

* $e49a 


e4a2 : 

0a 



asl 

a 


e4a3 : 

30 

f 5 


bmi 

* $e49a 


e4a5 : 

ca 



dex 



e4a6 : 

f0 

17 


beq 

* $e4bf 


e4a8 : 

ad 

00 

dd 

Ida 

* $dd00 


e4ab : 

cd 

00 

dd 

emp 

* $dd00 


e4ae: 

dO 

f 8 


bne 

* $e4a8 


e4b0 : 

0a 



asl 

a 


e4bl : 

10 

f 5 


bpl 

* $e4a8 


e4b3 : 

30 

e3 


bmi 

* $e498 


e4b5 : 

ad 

Oc 

de 

Ida 

* $dc0c 


e4b8 : 

85 

a4 


sta 

$a4 

[ firt ] 

e4ba: 

a9 

cO 


Ida 

#$c0 


e4bc : 

8d 

le 

Oa 

sta 

$0alc 


e4bf : 

68 



pia 



e4c0 : 

aa 



tax 



e4cl : 

20 

60 

e5 

jsr 

* $e560 


e4c4 : 

24 

90 


bit 

$90 [ 

status ] 

e4c6 : 

50 

03 


bvc 

* $e4cb 


e4c8 : 

20 

38 

e5 

jsr 

* $e538 


e4cb: 

20 

9f 

e5 

jsr 

* $e59f 


e4ce: 

a5 

a4 


Ida 

$a4 t 

firt ] 

e4d0 : 

18 



eie 



e4dl : 

60 



rts 



ROUTINE KERNAL 

SECND 


e4d2 : 

85 

95 


sta 

$95 

[ bsour ] 

e4d4 : 

20 

7c 

e3 

jsr 

* $e37c 


e4d7 : 

ad 

00 

dd 

Ida 

* $dd00 


e4da : 

29 

f 7 


and 

# $f 7 


e4dc: 

8d 

00 

dd 

sta 

* $dd00 


ROUTINE KERNAL 

TKSA 

S, CI OUT 


e4e0 : 

85 

95 


sta 

$95 

[ bsour ] 

e4e2 : 

20 

le 

e3 

jsr 

* $e37c 


e4e5 : 

24 

90 


bit 

$90 

[ status 

e4e7 : 

30 

4c 


bmi 

* $e535 


e4e9 : 

20 

73 

e5 

jsr 

* $e573 


e4ec : 

20 

60 

e5 

jsr 

* $e560 


e4ef : 

20 

d7 

e4 

jsr 

* $e4d7 


e4f 2 : 

20 

45 

e5 

jsr 

* $e545 


e4 f 5 : 

ad 

00 

dd 

Ida 

* $dd00 


e4 f 8 : 

cd 

00 

dd 

emp 

* $dd00 


e4fb: 

d0 

f 8 


bne 

* $e4f5 


e4f d : 

0a 



asl 

a 



Fissa cont.per bits di 8 data 
Leggi reg.contr. interrupt 
Controllo di interrupt per TIMER 
CLOCK o BUS. Se pos. salta 
Leggi dati porta A di CIA 2 ed att. 
che un bit sia pos. sulla porta 
★ * * 

Sposta bit dati su carry 
Attendi per dati validi 
Bit di dati in immag. bit 
Leggi porta dati del CIA 2 
ed attendi fino a che i dati arr. 
alla porta 

Sposta bit dati sul carry 
Se neg. attendi 
Decr.cont.n.bit dati di 1 
Contr. 8 bit di dati.Quindi salta 
Simile al prec. per lettura 
dati porta A CIA 2 
*** 

Spost bit dati nel flag di carry 
Salta se bit ricevuto e ' 0 
Salta se bit ricevuto e' 1 
Immag. contenuto buffer dati I/O 
in pag. 0 

Fissa bits 6 e 7 nel flag SYS 
Modo seriale FAST 

Ripristina vecchio cont.X per mezzo 

dell' A dallo stack 

In.segn.dati LO su bus seriale 

Contr. STATUS per bit E0I=1 

Cer. EOF.Se neg. continua 

Perif. disabil.Rout UNLSN 

Reset su freq. clock 

Metti byte dati in A 

Es. clear di Carry per indie. OK 


Immag. pag.O ind. sec. 

Uscita dati con ATN 
Leggi dati porta A di CIA 2 
Es. mask out bit 3 

Riprendi segn. ATN e in. su bus seriale 


Immag. ind.sec. in Pag. 0 

Uscita dati con ATN 

Contr. STATUS per bit EOF = 1 

Rii. EOF. Vai a UNLSN 

Metti freq. clock a 1MHz 

In. segn.dati LO su bus seriale 

Vai a subr. SECND 

In. segn.clock alto su bus seriale 
Leggi dati porta A del CIA 2 ed 
attendi fino a quando un bit giunga 
sulla porta A 
Sposta bit dati su Carry 





e4fe: 

30 

f 5 


bmi 

* $e4f5 


Attesa per dati HI 

e500 : 

4c 

9 f 

e5 

jmp 

* $e59f 


Reset freq. clock 

e50 3 : 

24 

94 


bit 

594 

( c3p0 ] 

Contr.se uscita altro Byte 

e505 : 

30 

05 


bmi 

* $e50c 


Se pos. vai a uscita ciclo 

e507 : 

38 



sec 



Fissa carry per rotaz. 

e508 : 

66 

94 


ror 

$94 

[ c3p0 ) 

Fissa flag per byte bufferiz. 

e50a: 

dO 

05 


bne 

* $e511 


Salta a uscita ciclo 

e50c: 

48 



pha 



Salva il Byte sullo Stack 

e50d : 

20 

8 c 

e3 

jsr 

* $e38c 


Metti Byte buff. in uscita su Stack 

e510 : 

68 



pia 



Prel. byte da Stack 

e511: 

85 

95 


sta 

$95 

[ bsour 

] Metti in pag 0 quan. immag. 

e513 : 

18 



eie 



Esegui Clear del carry 

e514 : 

60 



rts 




ROUTINE KERNAL 

UNTLK & UNLSN 



e515 : 

20 

73 

e5 

jsr 

* $e573 


Reset d. freq. clock 

e518 : 

20 

4e 

e5 

jsr 

* $e54e 


Segnale di clock basso su porta A 

e51b: 

ad 

00 

dd 

Ida 

* $dd00 


Lett. dati porta A su CIA 2 

e51e: 

09 

08 


ora 

#$08 


Metti bit 3 a questo valore e 

e520 : 

8d 

00 

dd 

sta 

* $dd00 


Uscita segn.ATN LO su bus 

e523: 

a9 

5f 


Ida 

#$5f 


Carica cod. in A per UNTALE 

e5 25 : 

2c 



, byte 

$2c 


Vai a $e528 

e526 : 

a9 

3 f 


Ida 

#$3f 


Carica codice per UNLSN 

e528 : 

48 



pha 



Immagazz. q.s. in stack 

e529: 

ad 

le 

Oa 

Ida 

$0alc 


Punt. di STATUS per seriale modo FAST 

e52c: 

29 

7f 


and 

#$7f 


Mask out del bit 7 

e52e : 

8d 

le 

Oa 

sta 

$0alc 


Riscrivi 

e531: 

68 



pia 



Ripristina vecchi cont. A 

e532 : 

20 

43 

e3 

jsr 

* $e343 


Vai a subr. LISTN 

e5 35 : 

20 

d7 

e4 

jsr 

* $e4d7 


Esegui reset ATN (HI) 

e5 3 8 : 

8a 



txa 



Immag.cont.X in A 

e539 : 

a2 

Oa 


ldx 

#$0a 


Ciclo di temp. di 40 microsec. 

e53b: 

ca 



dex 



Decr. di 1 cont. ciclo 

e53c: 

dO 

fd 


bne 

* $e53b 


Attendi per fine ciclo 

e53e : 

aa 



tax 



Ripr. cont. X 

e5 3f : 

20 

45 

e5 

jsr 

* $e545 


In.segn. HI di clock su porta A 

e542 : 

4c 

57 

e5 

jmp 

* $e557 


Segn. dati alto su porta A 

e545: 

ad 

00 

dd 

Ida 

* $dd00 


Leggi dati porta A di CIA 2 

e548: 

29 

ef 


and 

#$ef 


Esegui un clear su bit 4 per uscita 

e54a : 

8d 

00 

dd 

sta 

* $dd00 


clock su bus ser.e scr. su porta A 

e5 4d: 

60 



rts 





e5 4e : 

ad 

00 

dd 

Ida 

* $dd00 

Leggi dati porta A di CIA 2 

e551 : 

09 

10 


ora 

#$10 

Fissa bit 4 per uscita clock su bus 

e553 : 

8d 

00 

dd 

sta 

* $dd00 

seriale e scr. su porta A 

e556 : 

60 



rts 




e557 : 

ad 

00 

dd 

Ida 

* $dd00 

In 

queste due 

subr. 

vengono eseguite 

e55a: 

29 

df 


and 

#$df 

le 

operazioni 

prec, 

sequenzialmente 

e55c: 

8d 

00 

dd 

sta 

* $dd00 

ma 

per bit 5 i 

anziché 4 

e55f : 

60 



rts 







e560 : 

ad 

00 

dd 

Ida 

* $dd00 

idem 

e563 : 

09 

20 


ora 

#$20 

idem 

e565 : 

8d 

00 

dd 

sta 

* $dd00 

idem 

e5 6 8 : 

60 



rts 




128 - 

e5bc: 

ad 

Od 

de 

Ida 

* $dc0d 

Carica A reg.CIA contr. interrupt 

e5bf : 

29 

08 


and 

#$08 

Attendi fino a clear di bit 4 che e' 

e5cl : 

fO 

f 9 


beq 

* $e5bc 

SQR 

e5c3 : 

ad 

Oe 

de 

Ida 

* $dc0e 

Leggi reg. contr. A di CIA 

e5c6 : 

29 

80 


and 

#$80 

Cane, bit 7 per freq. 50 Hz 

e5c8 : 

09 

08 


ora 

#$08 

Fissa timer su modo TOGGLE 

e5ca : 

8d 

Oe 

de 

sta 

* $dc0e 

Fai partire il timer 


e5cd: a 
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e569 : 
e56c : 
e56f : 
e571 : 
e572: 

ad 

cd 

dO 

Oa 

60 

00 
00 
f 8 

dd 

dd 

Ida 

emp 

bne 

asl 

rts 

* $dd00 

* $dd00 

* Se569 
a 

e573 : 

78 



sei 


e574 : 

2c 

3a 

0a 

bit 

$0a3a 

e577 : 

30 

25 


bmi 

* $e59e 

e579: 

2c 

37 

Oa 

bit 

$0a37 

e57c: 

30 

20 


bmi 

* $e59e 

e57e : 

ad 

30 

d0 

Ida 

* $d030 

e581 : 

8d 

37 

0a 

sta 

$0a37 

e584 : 

ad 

15 

d0 

Ida 

* $d015 

e587 : 

8d 

38 

0a 

sta 

$0a38 

e58a : 

a9 

00 


Ida 

#$00 

e58c: 

8d 

15 

d0 

sta 

* $d015 

e58f : 

8d 

30 

dO 

sta 

* $d030 

e592 : 

ad 

38 

0a 

Ida 

$0a38 

e595 : 

fO 

07 


beq 

* $e59e 

e597 : 

8a 



txa 


e598 : 

a2 

00 


ldx 

#$00 

e59a: 

ca 



dex 


e5 9b: 

dO 

fd 


bne 

* $e59a 

e59d : 

aa 



tax 


e5 9e : 

60 



rts 



e59f : 

2c 

3a 

0a 

bit 

$0a3a 

e5a2 : 

30 

16 


bmi 

* $e5ba 

e5a4 : 

2c 

37 

Oa 

bit 

$0a37 

e5a7 : 

10 

11 


bpl 

* $e5ba 

e5a9 : 

ad 

38 

Oa 

Ida 

$0a38 

e5ac: 

8d 

15 

dO 

sta 

* $d015 

e5af : 

ad 

37 

Oa 

Ida 

$0a37 

e5b2 : 

8d 

30 

dO 

sta 

* $d030 

e5b5 : 

a9 

00 


Ida 

#$00 

e5b7 : 

8d 

37 

Oa 

sta 

$0a37 

e5ba : 

58 



eli 


e5bb: 

60 



rts 



e5bc: 

ad 

Od 

de 

Ida 

* $dc0d 

e5bf : 

29 

08 


and 

#$08 

e5cl : 

fO 

f 9 


beq 

* $e5bc 

e5c3 : 

ad 

Oe 

de 

Ida 

* $dc0e 

e5c6 : 

29 

80 


and 

#$80 

e5c8 : 

09 

08 


ora 

#$08 

e5ca : 

8d 

Oe 

de 

sta 

* $dc0e 

e5cd: 

ad 

05 

d5 

Ida 

* $d505 

e5d0 : 

29 

f 7 


and 

#$f 7 

e5d2 : 

8d 

05 

d5 

sta 

* $d505 

e5d5 : 

60 



rts 



e5d6 : 

ad 

05 d5 

Ida 

* $d505 

e5d9 : 

09 

08 

ora 

#$08 


Leggi dati porta A di CIA 2 ed attendi 
fino a quando un bit giunga alla 
porta A 

Il bit ricev. in Carry 


Disab. tutti gli interrupt 
Contr. immag. interrupt 
Fissa bit 7 
Controllo freq. clock 
Fissa bit 7 

Car. reg. VIC per freq. clock 
Salva q.s. 

Abilita reg. VIC per sprites 
Salva q.s. 

Iniz. STATUS per funz. 1 MHz 
Dis. tutti sprites 
Fissa freq. clock a 1 MHz 
Contr. sprites attivi 
Se neg. vai ad ind. 

Immag. X in A 

Ciclo di rit di 1.3 millisec 
Decr. di 1 cont. ciclo 
Esegui tutto ciclo di rit. 
Riprist. vecchio cont X 


Contr. immag. interrupt 
Fissa bit 7 

Contro, freq. di clock immagaz. 

Se freq. non cambiata, salta 
Scrivi vai. immag. dello sprite 
Riabilita reg. 

Carica A con vai. di sist. immag. 
Ripr. freq. clock 

Esegui clear della freq.clock-di sis. 
per immag. temp. 

Abilita tutti gli interrupt 


Carica A reg.CIA contr. interrupt 
Attendi fino a clear di bit 4 che e' 
SQR 

Leggi reg. contr. A di CIA 
Cane, bit 7 per freq. 50 Hz 
Fissa timer su modo TOGGLE 
Fai partire il timer 

Esegui un MASK out di bit di controllo 
per modo seriale FAST nel reg. conf. 
di MMU 


Fissa bit di controllo per modo seri. 
FAST nel reg. di conf. modo di 
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e5db : 

8d 

05 d5 

sta 

* $d505 


e5de: 

a9 

7f 

Ida 

#$7f 


e5e0 : 

8d 

Od de 

sta 

* $dcOd 


e5e3 : 

a9 

00 

Ida 

#$00 


e5e5 : 

8d 

05 de 

sta 

* $dc0 5 


e5e8 : 

a9 

04 

Ida 

#$04 


e5ea : 

8d 

04 de 

sta 

* $dc04 


e5ed: 

ad 

Oe de 

Ida 

* $dc0e 


e5f 0 : 

29 

80 

and 

#$80 


e5f 2 : 

09 

55 

ora 

#$55 


e5f 4 : 

8d 

Oe de 

sta 

* $dc0e 


e5f 7 : 

2c 

Od de 

bit 

$dcod 


e5f a : 

60 


rts 



ROUTINE KERNAL 

FSTMOD 


e5 f b : 

90 

c6 

bcc 

* $e5c3 


e5f d : 

bO 

d7 

bes 

* $e5d6 


e5ff : 

a5 

b4 

Ida 

$b4 [ 

bitts J 

e601 : 

fO 

47 

beq 

* $e64a 


e603 : 

30 

3f 

bmi 

* $e644 


e605 : 

46 

b6 

1 sr 

$b6 [ 

P r P i 

e6 07 : 

a2 

00 

ldx 

#$00 


e609 : 

90 

01 

bcc 

* $e60c 


e60b : 

ca 


dex 



e60c : 

8a 


txa 



e6 Od : 

45 

bd 

eor 

$bd [ 

roprty ] 

e60f : 

85 

bd 

sta 

$bd [ 

roprty ] 

e611 : 

c6 

b4 

dee 

$b4 [ 

bitts ] 

e613 : 

f0 

06 

beq 

* $e61b 


e615 : 

8a 


txa 



e616 : 

29 

04 

and 

#$04 


e6 18 : 

85 

b5 

sta 

$b5 | 

diff ] 

e6 la : 

60 


rts 



CONTROLLO PARITÀ' IN TRASMISSIONE 

e61b: 

a9 

20 

Ida 

#$20 


e61d : 

2c 

11 Oa 

bit 

$ Oal 1 


e6 20 : 

fO 

14 

beq 

* $e636 


e6 2 2 : 

30 

le 

bmi 

* $e'64 0 


e624: 

70 

14 

bvs 

* $e63a 


e626 : 

a5 

bd 

Ida 

$bd i 

roprty ] 

e6 28 : 

dO 

01 

bne 

* $e62b 


e62a : 

ca 


dex 



e6 2b : 

c6 

b4 

dee 

$b4 | 

! bitts ] 

e62d : 

ad 

10 Oa 

Ida 

$0al0 


e6 30 : 

10 

e3 

bpl 

* $e615 


e632 : 

c6 

b4 

dee 

$b4 | 

; bitts ] 

e6 34 : 

d0 

df 

bne 

* $e615 


e636 : 

e6 

b4 

ine 

$b4 | 

! bitts ] 

e6 38 : 

dO 

f 0 

bne 

* $e62a 


e63a : 

a5 

bd 

Ida 

$bd | 

! roprty ] 

e6 3c : 

fO 

ed 

beq 

* $e62b 


e6 3e : 

dO 

ea 

bne 

* $e62a 


e6 4 0 : 

70 

e9 

bvs 

* $e62b 


e642 : 

50 

e6 

bvc 

* $e62a 


e644 : 

e6 

b4 

ine 

$b4 

[ bitts ] 

e646 : 

a2 

f f 

ldx 

#$ff 


e648 : 

d0 

cb 

bne 

* $e615 



MMU 

Esegui un clear cod. per interrupt 
Interrupt su reg di contr. 

Carica timer A HI del CIA2 con 

vai. HI #0 

Come sopra per LO 

per vai. LO #4 

Leggi reg. contr A di CIA 2 

Cane, bit 7 per freq 50 HZ 

Fissa timer per forz. caricam. 

Metti in OFF bus seriale.Fai part.tim. 
Lett. reg, contr. interrupt 


Att. risp.da bus seriale 
Invia imp. FAST su bus seriale 
N. di bits da inviare 
Contr. per Byte compì, trasf. 

Contr.rich. bit di stop 
Sposta bit succ. su Carry 
Iniz. reg. X con $00 
Contr. esec. clear del bit 
Se neg. fissa X a $FF 
Copia in A Bit prec 
Confr. con parità' 

Risalva su pag. zero 

Decr. cont. bit di 1 

Contr. trasf. eseguito su tutti bit 

Trasf X in A 

Prel. bit 2 

Trasf. bit 2 in reg. uscita 


Metti bit 5 in A per parità ' 
Contr. reg. com. RS-232 
Se senza parità' salta 
Contr. parità' fissata 
Contr. nessuna parità' 

Contr. parità' 1 

Contr. neg. salta 

Fissa parità' a $ff 

Fissa cont. bit a $FF 

Metti in A reg contr. RS-232 

Contr.se rich. 2 bits di stop 

Metti a $FE cont. bit 

Se non= 0 cale, i bits di stop 

Incr. di 1 cont. bit 

C.s. 

Prendi vai. di parità' da pag. 0 

Uscita bit ZERO per 0 

Ness. 0, allora uscita bit 

Rout. di uscita 0 bit 

Come sopra per bit 1 

Incr.cont.bit di 1 

Immetti in X cod.per bit di stop 

Slato incond. 
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e64a : 

ad 

11 

0a 

Ida 

$0al 1 


e64d: 

4a 



lsr 

a 


e64e: 

90 

07 


bcc 

* $e657 


e650 : 

2c 

01 

dd 

bit 

* $ddO1 


e6 5 3 : 

10 

ld 


bpl 

* $e672 


e6 5 5 : 

50 

le 


bvc 

* $e675 


e'657: 

a9 

00 


Ida 

#$00 


e659 : 

85 

bd 


sta 

$bd | 

roprty ] 

e65b: 

85 

b5 


sta 

$b5 | 

diff ] 

e6 5d : 

ae 

15 

0a 

ldx 

$0al 5 


e660 : 

86 

b4 


stx 

$b4 [ 

bitts ] 

e662 : 

ac 

la 

Oa 

ldy 

$0ala 


e665 : 

cc 

lb 

Oa 

cpy 

$0alb 


e668 : 

f 0 

13 


beq 

* $e67d 


e66a : 

bl 

ca 


Ida 

($ca),y ( 

robuf ] 

e6 6c : 

85 

b6 


sta 

$b6 | 

: P r P 1 

e66e : 

ee 

la 

Oa 

ine 

$0ala 


eó71 : 

60' 



rts 



FISSAGGIO DI NMI PER RS-232 


e672: 

a9 

40 


Ida 

#$40 


e67 4 : 

2c 



. byte 

$2c 


e677 : 

Od 

14 

Oa 

ora 

$0al 4 


e6 7a : 

8d 

14 

Oa 

sta 

$0al 4 


e67d: 

a9 

01 


Ida 

#$01 


e67f : 

8d 

Od 

dd 

sta 

* $dd0d 


e682 : 

4d 

Of 

0a 

eor 

$0a0f 


e685 : 

09 

80 


ora 

#$80 


e687 : 

8d 

Of 

Oa 

sta 

$0a0 f 


e68a -. 

8d 

Od 

dd 

sta 

* $dd0d 


e6 8d: 

60 



rts 



CALCOLO PER 

RS- 

-232 



e6 8e : 

a2 

09 


ldx 

#$09 


e690 : 

a9 

20 


Ida 

#$20 


e6 92 : 

2c 

10 

0a 

bit 

$0al 0 


e695 : 

f0 

01 


beq 

* $e698 


e697 : 

ca 



dex 



e698 : 

50 

02 


bvc 

* $e69c 


e69a : 

ca 



dex 



e69b : 

ca 



dex 



e69c : 

60 



rts 




e69d: 

a6 

a9 

ldx 

$a9 [ 

rinone ) 

e69f : 

d0 

33 

bne 

* $e6d4 


e6al : 

c6 

a8 

dee 

$a8 [ 

bitei ) 

e6a3 : 

f0 

3a 

beq 

* $e6df 


e6a5 : 

30 

Od 

bmi 

* $e6b4 


e6a7 : 

a5 

al 

Ida 

$a7 [ 

shcnl ] 

e6a9 : 

45 

ab 

eor 

$ab [ 

riprty ] 

e6ab: 

85 

ab 

sta 

$ab [ 

riprty ] 

e6ad : 

46 

al 

lsr 

$a7 [ 

shcnl ] 

e6af : 

66 

aa 

ror 

$aa [ 

rdflg ] 

e6bl : 

60 


rts 



e6b2 : 

c6 

a8 

dee 

$a8 [ 

bitei ] 


Metti in A reg.com. di RS-232 
Metti bit 0 in carry 
Salta 3 linne per lett. HANDSHAKE 
Leggi porta B di CIA 2 

Contro.perdita segn.DSR(DATA SET READ) 
Contr. perd. segn.CTS (CLEAR TO SEND) 
Es.clear buff.Pag.O per RS-232 
Metti parità' a ($00) ed immag in Pag 
0 per bit da inviare 

Copia n. di bits da trasf. in Pag. 0 
come contatore 

Confr. ind. di inizio buffer uscita 
con relativa fine 
Se tutti bytes trasf. esegui 
Carica in A byte di dati per RS-232 
e immagazzina 

Incr. di 1 inizio buff. uscita dati 


Carica codice per DATA SET READY 
Vai a $e677 

Confr.con reg di status di RS-232 
Immetti in reg. di status 
Carica A con $01 ed es. clear di 
NMI per il timer A 
Confr. con NMI di RS-232 
Es. OR su flag per RS-232 ed imme. 
il valore in NMI di RS-232 
Ese. i succ. NMI 


Valore di default a 8 bits 
Contr. vai. per n. bits 
Contr. reg. RS-232 
Contr. se es. clear su bit 5 
Decr. di 1 n. bits dati 
Contr. se es. clear su bit 6 
Decr. di 1 bits dati 
C.s. 


Contr. se e' bit di inizio 

Se contr. neg. salta 

Decr. cont. bit di 1 

Se tutti bits rie. continua 

Se attend. bits di stop(2) salta 

Metti in A bit ricevuto 

Confr. q.s. con parità' 

Immetti vai. parità' in pag. 0 
Sposta bit rie. in carry 
Immetti q.s. in buffer ingresso 


Decr. di 1 cont. bit 
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e6b4 : 

a5 

a7 


Ida 

$a7 [ 

shcnl ] 

e6b6 : 

f 0 

6b 


beq 

* $e723 


e6b8 : 

ad 

10 

Oa 

Ida 

$0al 0 


e6bb : 

Oa 



asl 

a 


e6bc : 

a9 

01 


Ida 

#$01 


e6be: 

65 

a8 


adc 

$a8 [ 

bitei ] 

e6c0 : 

dO 

ef 


bne 

* $e6bl 


e6c2 : 

a9 

90 


Ida 

#$90 


e6c4 : 

8d 

Od 

dd 

sta 

* $dd0d 


e6c7 : 

Od 

Of 

Oa 

ora 

$0a0f 


e6ca : 

8d 

Of 

0a 

sta 

$0a0f 


e6cd : 

85 

a9 


sta 

$a9 [ 

rinone ] 

e6cf : 

a9 

02 


Ida 

#$02 


e6dl : 

4c 

7 f 

e6 

jmp 

* $e67f 


e6d4 : 

a5 

a7 


Ida 

$a7 [ 

shcnl ] 

e6d6 : 

dO 

ea 


bne 

* $e6c2 


e6d8 : 

85 

a9 


sta 

$a9 [ 

rinone ] 

e6da : 

a9 

01 


Ida 

#$01 


e6dc : 

85 

ab 


sta 

$ab [ 

riprty ] 

e6de: 

60 



rts 



CONTINUAZIONE ROUTINE RS-232 

e6df : 

ac 

18 

Oa 

ldy 

$0al8 


e6e2 : 

c8 



iny 



e6e3 : 

cc 

19 

Oa 

cpy 

$0al9 


e6e6 : 

fO 

2a 


beq 

* $e712 


e6e8 : 

8c 

18 

Oa 

sty 

$0al8 


e6eb : 

88 



dey 



e6ec: 

a5 

aa 


Ida 

$aa 

[ rdflg 

e6ee : 

ae 

15 

Oa 

ldx 

$0al 5 


e6f 1 : 

eO 

09 


cpx 

#$09 


e6f 3 : 

fO 

04 


beq 

* $e6f9 


e6f 5 : 

4a 



lsr 

a 


e6f 6: 

e8 



inx 



e6f 7 : 

dO 

f 8 


bne 

* $e6f1 


e6f 9: 

91 

c8 


sta 

($c8 ),y 

[ ribuf 

e6fb: 

a9 

20 


Ida 

#$20 


e6f d : 

2c 

11 

Oa 

bit 

$0al 1 


e7 00 : 

fO 

bO 


beq 

* $e6b2 


e702 : 

30 

ad 


bmi 

* $e6bl 


e704 : 

a5 

al 


Ida 

$a7 

[ shcnl 

e706 : 

45 

ab 


eor 

$ab 

[ riprty 

e708 : 

fO 

03 


beq 

* $e70d 


e7 Oa : 

70 

a 5 


bvs 

* $e6bl 


e7 Oc : 

2c 



. byte 

$2c 


e7 Od : 

50 

a2 


bvc 

* $e6bl 


e7 0f : 

a9 

01 


Ida 

#$01 


e711 : 

2c 



. byte 

$2c 


e712 : 

a9 

a4 


Ida 

#$04 


e714 : 

2c 



. byte 

$2c 


e715 : 

a9 

80 


Ida 

#$80 


e717 : 

2c 



. byte 

$2c 


e718 : 

a9 

02 


Ida 

#$02 


e71a: 

Od 

14 

Oa 

ora 

$0al 4 


e7 ld : 

8d 

14 

Oa 

sta 

$0al4 


e720 : 

4c 

c2 

e6 

jmp 

* $e6c2 


e7 23 : 

a5 

aa 


Ida 

$aa 

[ rdflg 

e725 : 

d0 

fi 


bne 

* $e718 


e727 : 

fO 

ec 


beq 

* $e715 



Metti bit di stop in A e controlla 
che =0. Se contr. pos. salta 
Carica in A reg. contr. RS-232 
Metti su carry n.bits di STOP 
Somma vai.n.bits di stop 
Somma bits di dati e di stop 
Se non rie. tutti bits stop salta 
Metti in A RXD 
Abilita NMI 

Confr. con NMI di RS-232 

Metti in A stato di NMI di RS-232 

Fissa flag per bit parten. 

Metti 2 in A per trasmiss. 

Esegui clear di NMI(per timer B) 

Metti in A vai.bit di part. 

Se non=0 salta. Ese. quindi il reset 
bit part. di pag. zero e reset anche 
del punt. sempre in pag. 0 per uscita 
RS-232. Reset su parità' ingr. 


Ind. ini. di RS-232 
Incr. di 1 buffer di input 
Confr. con fine 
Fissa status del buffer 
Scrivi buffer ind. 

Decr. di 1 

Carica bit rie. da pag. 0 
Metti in X n. di bits dati 
Contr.rie 1 bit di stop 
Se contr. pos. tutto OK 
Sposta bits in pos. corretta 
Increm cont. bit di 1 
Vai a ind. 

Scrivi byte(daind. precjin buffer ingr 
Contr. vai. per contr. parità' 

Contr. reg comando RS-232 
Trasf se ness. parità' 

Fis. valore di bit per parità' 

Bit di parita7 rie. in A 
Confr. con parità' calcolata 
Se contr. pos. continua 
Contr. parità', se pos. OK 
Vai a $e714 
Controllo parità' 

Metti in A cod. err. parità' 

Vai a $e714 

Buffer di input in A 

Vai a $e717 

Se ricev.com. di stop allora in A 
Vai a $e71a 

Carica cod.errore in A 

Es. OR cod. con reg.stato di RS-232 

Metti q.s. in reg.sta. RS-232 

Ricevi succ. byte 

Metti in A byte ricevuto 

Contr. errore 

Ferma com. ricevuto 




e72 9 : 

85 

9a 


sta 

$9a 

e72b: 

ad 

11 

Oa 

Ida 

$0al 1 

e72e: 

4a 



lsr 

a 

e72f : 

90 

29 


bcc 

* $e75a 

e731 : 

a9 

02 


Ida 

#$02 

e7 33 : 

2c 

01 

dd 

bit 

* $dd01 

e73 6 : 

10 

ld 


bpl 

* $e755 

e7 38 : 

dO 

20 


bne 

* $e75a 

e7 3a : 

ad 

Of 

Oa 

Ida 

$0a0f 

e73d: 

29 

02 


and 

#$02 

e73f : 

dO 

f 9 


bne 

* $e73a 

e7 41 : 

2c 

01 

dd 

bit 

* $dd01 

e744 : 

70 

fb 


bvs 

* $e741 

e7 46 : 

ad 

01 

dd 

Ida 

* $dd01 

e74 9 : 

09 

02 


ora 

#$02 

e74b: 

8d 

01 

dd 

sta 

* $dd01 

e7 4e : 

2c 

01 

dd 

bit 

* $dd01 

e751: 

70 

07 


bvs 

* $e75a 

e7 5 3 : 

30 

f 9 


bmi 

* $e74e 

e7 5 5 : 

a9 

40 


Ida 

#$40 

e757 : 

8d 

14 

Oa 

sta 

$0al 4 

e75a : 

18 



eie 


e75b: 

60 



rts 



USCITA SU BUFFER RS-232 


e75c : 

20 

70 

el 

jsr 

* $e770 


e75f : 

ac 

lb 

0a 

ldy 

$0alb 


e76 2 : 

c8 



iny 



e763 : 

cc 

la 

Oa 

cpy 

$0ala 


e766: 

f0 

f 4 


beq 

* $e75c 


e768 : 

8c 

lb 

Oa 

sty 

$0alb 


e76b: 

88 



dey 



e76c: 

a5 

9e 


Ida 

$9e [ 

ptrl 

elèe-. 

91 

ca 


sta 

($ca),y | 

robuf 

elio : 

ad 

0f 

Oa 

Ida 

$0a0f 


e773: 

4a 



lsr 

a 


e77 4 : 

b0 

le 


bes 

* $e794 


e776: 

a9 

10 


Ida 

#$10 


e778 : 

8d 

Oe 

dd 

sta 

* $dd0e 


e77b : 

ad 

16 

0a 

Ida 

$0al6 


elle: 

8d 

04 

dd 

sta 

* $dd04 


elèi-. 

ad 

17 

0a 

Ida 

$0al 7 


e784 : 

8d 

05 

dd 

sta 

* $dd05 


elèi : 

a9 

81 


Ida 

#$81 


e789 : 

20 

7f 

e6 

jsr 

* $e67f 


e7 8c : 

20 

4a 

e6 

jsr 

* $e64a 


e78f : 

a9 

n 


Ida 

#$11 


e791 : 

8d 

Oe 

dd 

sta 

* $dd0e 


e794 : 

60 



rts 



CHKIN 

DI 

RS- 

-232 





Immetti in pag. 0 n. perif 
Car. RS-232 (reg. comando) 

Sposta bit 0 in carry 

Salta per 3 linee di HANDSHAKE 

Car. A cod”.contr. DSR 

Lettura porta B di CIA 2 

Se nessun DSR errore 

Nessun segn. di invio dati 

Metti in A stato NMI di RS-232 

Contr. rie. dati attivo 

Attesa per ricez. avvenuta 

Leggi porta B di CIA 2 

Attendi per segn. di Clear To Send 

Leggi porta B CIA 2 

Fissa bit 2 per segnale prec. 

Scrivi su porta B 

Leggi porta B di CIA 2 

Attesa segnale Clear To Send 

Atti. DATA READY 

Codice segn. prec perd. 

Scrivi segn. su RS-232 

Fissa carry per indie, tutto OK 


Inizio trasf. 

Indie, buffer uscita RS-232 

Incr. buffer di 1 

Confr. con inizio buffer uscita 

Se buffer pieno attendi 

Fissa nuovo ind. su buffer uscita 

Decrem.punt. buffer di 1 

Byte di uscita in A 

Scrivilo in buffer di uscita 

Copia flag di NMI di RS-232 in A 

Controlla se bit 0 e' a 1 

Contr. cont. invio dati 

Iniz. timer A con $10 

Carica in A e fallo partire 

Rout. per fissare il BAUD RATE, cioè' 

la vel. di trasmissione agli indiri. 

$DD04 e 

$DD0 5 

Cod. timer A in Underflow di NMI 
Esegui NMI per timer A 
Contr. CTS+DSR, abil. trasf. 

Timer A a $11 
Partenza timer 


e795: 85 99 sta $99 [ dfltn ] Immetti n. perif. in pag. 0 

e797: ad 11 Oa Ida $0all Metti in A reg. com. RS-232 

e79a: 4a lsr a Bit 0 per HANDSHAKE in carry 

e79b: 90 28 bcc * $e7c5 Es. 3 linee di HANDSHAKE e cont. 

e79d: 29 08 and #$08 Contr. per duplex 

e79f: fO 24 beq * $e7c5 Pos. full duplex e cont. 

e7al: a9 02 Ida #$02 Cod. contr. segn. DSR 
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e7a3 : 

2c 

01 

dd 

bit 

* $dd01 

e7a6 : 

10 

ad 


bpl 

* $e755 

e7a8 : 

fO 

22 


beq 

* $e7cc 

e7aa : 

ad 

Of 

Oa 

Ida 

$0a0f 

e7ad : 

4a 



lsr 

a 

e7ae : 

bO 

fa 


bes 

* $e7aa 

e7b0 : 

ad 

01 

dd 

Ida 

* $dd01 

e7b3 : 

29 

fd 


and 

#$f d 

e7b5 : 

8d 

01 

dd 

sta 

* $dd01 

e7b8 : 

ad 

01 

dd 

Ida 

* $dd01 

e7bb: 

29 

04 


and 

#$04 

e7bd : 

fO 

f 9 


beq 

* $e7b8 

e7bf : 

a9 

?o 


Ida 

#$90 

e7cl : 

18 



eie 


e7c2 : 

4c 

7 f 

e6 

jmp 

* $e67f 

e7c5 : 

ad 

Of 

Oa 

lda 

$0a0f 

e7c8 : 

29 

12 


and 

#$12 

e7ca : 

fO 

f 3 


beq 

* $e7bf 

e7cc: 

18 



eie 


e7cd : 

60 



rts 



GET DA RS-232 


e7ce : 

ad 

14 Oa 

lda 

$0al 4 

e7dl : 

ac 

19 Oa 

ldy 

$ Oal 9 

e7d4 : 

cc 

18 Oa 

cpy 

$0al 8 

e7d7 : 

f 0 

Ob 

beq 

* $e7e4 

e7d9 : 

29 

fi 

and 

#$f 7 

e7db : 

8d 

14 Oa 

sta 

$0al 4 

e7de: 

bl 

c8 

lda 

($c8),y [ ribuf ] 

e7e0 : 

ee 

19 Oa 

ine 

$0al 9 

e7e3 : 

60 


rts 


CONTROLLO BUFFER PER RS-232 

e7e4 : 

09 

08 

ora 

#$08 

e7e6 : 

8d 

14 Oa 

sta 

$0al 4 

e7e9 : 

a9 

00 

lda 

#$00 

e7eb : 

60 


rts 


ROUTINE DI ATTESA PER FINE RS-232 

elee: 

48 


pha 


e7ed : 

ad 

Of Oa 

lda 

$ OaO f 

e7f 0 : 

f0 

11 

beq 

* $e803 

e7 f 2 : 

ad 

Of Oa 

lda 

$0a0f 

e7f 5 : 

29 

03 

and 

#$03 

e7f 7: 

dO 

f 9 

bne 

* $e7f 2 

e7 f 9 : 

a9 

10 

lda 

#$10 

e7f b : 

8d 

Od dd 

sta 

* $dd0d 

e7f e : 

a9 

00 

lda 

#$00 

e800: 

8d 

Of Oa 

sta 

$0a0f 

e8 0 3 : 

68 


pia 


e804 : 

60 


rts 



ROUTINE NMI PER RS-232 


e805: 98 tya 

e806: 2d Of Oa and $0a0f 

e809: aa tax 


Contr. per DSR di porta B CIA 2 

Se perd. segnale fissa status esci 

Contr. segn Ready To Send 

Metti in A flag di st.di RS-232 NMI 

Se inviato operazione in corso e po 

attendi fine trasferimento 

Lett. porta A di CIA 2. Cane, bit 0 

Richiesta di invio segnale 

Segn. di ritorno su porta B 

Lett. porta B di CIA 2 e controlla 

pres. segnale DTR 

Se segnale prec. non pres. attendi 
Metti in A NMI (mask) per flag 
Es. clear di carry 
Abi1. NMI di RS-232 
Metti in A st. NMI di RS-232 
Contr. se RS-232 non ancora attiva 
e quindi partenza 
Es. clear di carry 


Metti in A byte di status di RS-232 

Ind. fine buffer input di RS-232 

Confr. con inizio buffer input 

Se = buffer pieno e salta 

Mask out bit 3 

Clear status di RS-232 

Lett. 1 byte da buffer RS-232 

Incr. ind. buffer input di RS-232 


Fissa bit 3 

Metti in A st. di RS-232 
Car. $00 come car. letto 


Salva su Stack cont. di A 

Carica flag NMI di RS-232 

Se non =1 OK e continua 

Rileggi flag NMI di RS-232 

BIT 0 per inviare, bit 1 per ricevere 

Attesa per fine 

Carica A con $10 

Linea di interrupt 

Flag NMI di RS-232 

Fissa Status per OK 

Ripris. cont. A 


ICR= reg.- control lo interrupt 
Es. AND con flag NMI di RS-232 
Immag. ris. in X 
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e80a : 

29 

01 


and 

#$01 

Es. mask dei bits 1-7 e contr. 

e80c : 

fO 

28 


beq 

* $e836 

invio attiva.Se neg. salta 

e8 0e : 

ad 

00 

dd 

Ida 

* $dd00 

Carica A con dati porta 

e811 : 

29 

fb 


and 

#$fb 

Es. clear bit 2 (TXD) e poni i 

e81 3 : 

05 

b5 


ora 

$b5 [ diff ] da inviare in A 

e815 : 

8d 

00 

dd 

sta 

* $dd00 

Carica A con dati porta 

e818 : 

ad 

Of 

0a 

Ida 

$0a0f 

Copia in A flag NMI di RS-232 

e8 lb : 

8d 

Od 

dd 

sta 

* $dd0d 

Riscrivi q.s. in ICR 

e81e: 

8a 



txa 


Trasf. in A ICR/NMI 

e81f : 

29 

12 


and 

#$12 

Prendi bit 1 e 4 

e821 : 

fO 

Od 


beq 

* $e830 

Se non = 1 part.byte ricezione 

e8 2 3 : 

29 

02 


and 

#$02 

Es. AND log. su bit 1.Timer B 

e 8 2 5 : 

fO 

06 


beq 

* $e82d 

Se non fissato, bit inizio 

e827 : 

20 

78 

e8 

jsr 

* $e878 

Integ. rice. bit 

e82a : 

4c 

30 

e8 

jmp 

* $e830 

Iniz. ricev. byte 

e82d : 

20 

a9 

e8 

jsr 

* $e8a9 

Prep. ricevz. byte successivo 

e830 : 

20 

ff 

e5 

jsr 

* $e5ff 

Inizio ricez. byte 

e8 3 3 : 

4c 

49 

e8 

jmp 

* $e849 

Return da interrupt 

e836 : 

8a 



txa 


Immetti X in A 

e8 37 : 

29 

02 


and 

#$02 

Es. AND per rie. dati e contr. 

e839 : 

f 0 

06 


beq 

* $e841 

Se contr. neg. salta 

e83b: 

20 

78 

e8 

jsr 

* $e878 

L' integr. rie. il bit 

e83e: 

4c 

49 

e8 

jmp 

* $e849 

Ritorno da fase di Interrupt 

e8 41 : 

8a 



txa 


Ripris. cont. X 

e842 : 

29 

10 


and 

#$10 

Contr. attesa bit di partenza 

e8 44 : 

fO 

03 


beq 

* $e849 

Se neg. continua 

e8 4 6 : 

20 

a9 

e8 

jsr 

* $e8a9 

Prep. rice. pross. bit 

e849 : 

ad 

Of 

Oa 

Ida 

$0a0f 

Carica A flag NMI di RS-232 

e84c : 

8d 

Od 

dd 

sta 

* $dd0d 

Metti in ICR di CIA 2 q.s 

e84f : 

60 



rts 



COSTANTI 

RS- 

-232 

PER 

BUAD RATE. 

VERS NTSC 

e85 0 : 

cl 

27 



($27cl) 

50 BAUD 

e852 : 

3e 

la 



($la3e) 

7 5 

e854 : 

c5 

ii 



( $ 11 c 5 

110 

e8 56 : 

74 

Oe 



($0e74) 

134.5 

e858 : 

ed 

Oc 



{$ Oced) 

15 0 

e8 5a : 

45 

06 



($0645) 

3 00 

e85c : 

fO 

02 



($02f0 ) 

600 

e85e : 

46 

01 



($0146) 

1200 

e86 0 : 

b8 

00 



($00b8) 

1800 

e862 : 

71 

00 



($0071) 

2400 

COSTANTI 

RS 

-232 

PER 

BAUD RATE. 

VERS. PAL 

e864 

19 

26 



($2619) 

50 BAUD 

e866 

44 

19 



($1944) 

75 

e868 

la 

11 



($11la ) 

110 

e8 6a 

e8 

Od 



($0de8) 

134.5 

e86c 

70 

Oc 



($0c70 ) 

150 

e8 6e 

06 

06 



($0606) 

300 

e87 0 

di 

02 



($02dl) 

600 

e872 

37 

01 



($0137) 

1200 

e87 4 

ae 

00 



( $00ae) 

180 0 

e87 6 

69 

00 



($0069) 

2400 


INGRESSO ROUTINE NMI PER RS-232 


e878: ad 01 dd Ida * $dd01 


Leggi dati porta B di CIA 2 
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e87b : 

29 

01 


and 

#$01 


e87d : 

85 

al 


sta 

$a7 [ 

shcnl ] 

e87f : 

ad 

06 

dd 

Ida 

* $dd06 


e88 2 : 

e9 

28 


sbc 

#$28 


e884 : 

6d 

16 

0a 

adc 

$0al6 


e8 8 7 : 

8d 

06 

dd 

sta 

* $dd06 


e88a : 

ad 

07 

dd 

Ida 

* $dd07 


e88d : 

6d 

17 

0a 

adc 

$0al 7 


e890 : 

8d 

07 

dd 

sta 

* $dd07 


e8 9 3 : 

a9 

11 


Ida 

#$n 


e8 9 5 : 

8d 

Of 

dd 

sta 

* $dd0f 


e898 : 

ad 

Of 

0a 

Ida 

$0a0f 


e8 9b: 

8d 

Od 

dd 

sta 

* $dd0d 


e89e : 

a9 

ff 


Ida 

#$ff 


e8a0 : 

8d 

06 

dd 

sta 

* $dd06 


e8a3 : 

8d 

07 

dd 

sta 

* $dd0 7 


e8a6 : 

4c 

9d 

e6 

jmp 

* $e69d 


e8a9 : 

ad 

12 

Oa 

Ida 

$0al 2 


e8ac : 

8d 

06 

dd 

sta 

* $dd06 


e8af : 

ad 

13 

0a 

Ida 

$0al 3 


e8b2 : 

8d 

07 

dd 

sta 

* $dd07 


e8b5 : 

a9 

11 


Ida 

#$11 


e8b7 : 

8d 

Of 

dd 

sta 

* $dd0f 


e8ba : 

a9 

12 


Ida 

#$12 


e8bc : 

4d 

Of 

0a 

eor 

$0a0f 


e8bf : 

8d 

Of 

0a 

sta 

$0a0f 


e8c2 : 

a9 

ff 


Ida 

#$ff 


e8c4 : 

8d 

06 

dd 

sta 

* $dd06 


e8c7 : 

8d 

07 

dd 

sta 

* $dd0 7 


e8ca : 

ae 

15 

Oa 

ldx 

$ Oal 5 


e8cd : 

86 

a8 


stx 

$a8 

[ bitci ] 

e8cf : 

60 



rts 



LETTURA HEADER 

DA NASTRO 


e8d0 

a5 

93 


Ida 

$93 

[ verck ] 

e8d2 

48 



pha 



e8d3 

20 

f 2 

e9 

jsr 

* $e9f2 


e8d6 

68 



pia 



e8d7 

85 

93 


sta 

$93 

[ verck ] 

e8d9 

bO 

3d 


bcs 

* $e918 


e8db 

aO 

00 


ldy 

#$00 


e8dd 

bl 

b2 


Ida 

($b2),y 

[ tapel ] 

e8df 

c9 

05 


cmp 

#$05 


e8el 

fO 

34 


beq 

* $e917 


e8e3 

c9 

01 


cmp 

#$01 


e8e5 

fO 

08 


beq 

* $e8ef 


e8e7 

c9 

03 


cmp 

#$03 


e8e9 

fO 

04 


beq 

* $e8ef 


e8eb 

c9 

04 


cmp 

#$04 


e8ed 

dO 

el 


bne 

* $e8d0 


e8ef 

aa 



tax 



e8f 0 

24 

9d 


bit 

$ 9d 

[ msgflg 

e8f 2 

10 

22 


bpl 

* $e916 

e8f 4 

aO 

63 


ldy 

#$63 


e8f 6 

20 

22 

f 7 

jsr 

* $f722 


e8f 9 

aO 

05 


ldy 

#$05 


e8fb 

bl 

b2 


Ida 

($b2),y 

[ tapel ] 

e8fd 

20 

d2 

ff 

jsr 

* $ffd2 

( bsout ] 

e900 

c8 



iny 




Prep. bit per ricez. dati 

Immag.pag 0 flag input di RS-232 

Car. LO di timer B CIA2 

Sottrai da questo 28 

Somma temp.baud rate HI 

Reset timer B 

Car. HI di timer B CIA 2 

Somma temp.baud rate HI 

Reset timer B 

Scrivi $11 nel reg. di contr. 
del timer B CIA 2 per part. 

Metti in A condiz. NMI di RS-232 
Fissa reg.contr. interrupt CIA 
Val. iniz. per timer B 
Timer B LO a valore HI 
Timer B HI a valore HI 
Ricez. bit da process. 

Metti in A baud rate uten. di RS-232 

Somma q.s. in timer LO 

Metti in A baud rate uten. di RS-232 

Somma q.s. in timer HI 

Scrivi $11 nel registro di contr. 

Timer partenza 

Es. invers. bits 0,1,4 di RS-232 rei. 
flag NMI. valore poi riportato nel 
nel flag NMI 

Val. di iniz. per timer B 
Metti timer B LO a valore HI 
Idem per B HI 

Metti in pag. zero n.bits da inviare 
cont. dei bits di RS-232 


Metti in Stack di sistema punt. per 
LOAD/VERYFY a mezzo A 
Rout. lettura dati da blocco nastro 
Prel. flag di LOAD/VERIFY da Stack 
e riportalo in pag. 0 
Salta a ind. se rilevi err. 

Fissa spost. per buffer nastro 
Car.byte del blocco dati letto 
Contr. per EOT 
Se pos. vai a ind. 

Contr.se header e' di progr. Basic 
Se pos. valutalo 

Contr. se header e' di prog. in LM 
Se pos. vai ad ind. 

Contr. header e' di blocco dati 
Se neg. leggi in tipo di header 
immagaz. in X 

Contr. flag di Status della Kern 
Contr. mess. non possibile 
Spostati su FOUND 
Uscita mess. di controllo 
Fissa spost. su iniz. nome file 
Lett. caratt. da buffer nastro 
Vai a BSOUT 
Incr. punt. di 1 
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e901 : 

cO 

15 

cpy #$15 



e90 3 : 

dO 

f 6 

bne * $e8fb 



e905 : 

a5 

al 

Ida $al 

[ time+ 

1 

e9 0 7 : 

69 

02 

adc #$02 



e909 : 

a4 

91 

ldy $91 

[ stkey 

] 

e90b : 

c8 


iny 



e90c: 

dO 

04 

bne * $e912 



e9 0e : 

c5 

al 

emp $al 

[ timet 

1 

e910: 

dO 

f 7 

bne * $e909 



e912 : 

cO 

fO 

cpy #$f0 



e914 : 

fO 

ba 

beq * $e8d0 



e916 : 

18 


eie 



e917 : 

88 


.dey 



e918 : 

60 


rts 




SCRITTURA BLOCCO DATI SU NASTRO 


e919 : 

85 

9e 


sta 

$9e 

[ 

ptrl ] 

e91b: 

20 

80 

e9 

jsr 

* $e980 



e9 le : 

90 

5f 


bcc 

* $e97f 



e92 0 : 

a5 

c2 


Ida 

$c2 

[ 

stah ] 

e922 : 

48 



pha 




e923 : 

a5 

cl 


Ida 

$cl 

[ 

track ] 

e925 : 

48 



pha 




e926 : 

a5 

af 


Ida 

$af 

[ 

eah ] 

e928 : 

48 



pha 




e92 9 : 

a5 

ae 


Ida 

$ae 

( 

eal ) 

e92b: 

48 



pha 




e9 2c : 

aO 

bf 


ldy 

#$bf 



e92e : 

a9 

20 


Ida 

#$20 



e9 30 : 

91 

b2 


sta 

($b2),y 

[ 

tapel ] 

e9 32 : 

88 



dey 




e933 : 

dO 

fb 


bne 

* $e930 



e935 : 

a5 

9e 


Ida 

$9e 

[ 

ptrl ] 

e9 37 : 

91 

b2 


sta 

($b2),y 

[ 

tapel ] 

e939 : 

c8 



iny 




e9 3a : 

a5 

cl 


Ida 

$cl 

t 

track ] 

e9 3c: 

91 

b2 


sta 

($b2),y 

[ 

tapel j 

e9 3e : 

c8 



iny 




e93f : 

a5 

c2 


Ida 

$c2 



e941 : 

91 

b2 


sta 

($b2),y 

[ 

tapel ] 

e94 3 : 

c8 



iny 




e944 : 

a5 

ae 


Ida 

$ae 

[ 

eal ] 

e946 : 

91 

b2 


sta 

($b2),y 

[ 

tapel ] 

e9 48 : 

c8 



iny 




e94 9 : 

a5 

af 


Ida 

$af 

[ 

eah ] 

e94b : 

91 

b2 


sta 

($b2),y 

[ 

tapel ] 

e94d: 

c8 



iny 




e9 4e : 

84 

9f 


sty 

$9f 

[ 

ptr2 ] 

e95 0 : 

aO 

00 


ldy 

#$00 



e952 : 

84 

9e 


sty 

$9e 

[ 

ptrl ] 

e954 : 

a4 

9e 


ldy 

$9e 

[ 

ptrl ] 

e9 56 : 

c4 

b7 


cpy 

$b7 

[ 

fnlen ] 

e95 8 : 

fO 

Od 


beq 

* $e967 



e95a : 

20 

ae 

f 7 

jsr 

* $f7ae 



e95d: 

a4 

9f 


ldy 

$9f 

[ 

ptr2 ] 

e95f : 

91 

b2 


sta 

($b2),y 

[ 

tapel ] 

e961 : 

e6 

9e 


ine 

$9e 

[ 

ptrl ] 

e963 : 

e6 

9f 


ine 

$9f 

[ 

ptr2 ] 

e96 5 : 

dO 

ed 


bne 

* $e954 




Contr. max lungh. file per 16 car 
Se non trovato continua 
] Metti in A byte di temp. MIDDLE 
Ciclo di rit. di 8.5 sec 
Contr. flag stop e tasto C in Pag.O 
Increm. valore di 1 
Se tasto premuto cont. 

] Contr. ciclo rit. di 8.5 sec. 

Contr. temp. neg. Cont. attesa 
Contr. tasto spazio prem. 

Contr. pos.leggi Header 
Es. clear di carry (indie.) 

Vecchio vai.flag STOP/C 


Immetti tipo HEADER in Pag.O 
Prendi ind. buffer nastro 
Se ind. non valido salta 
Imm. in A Indir. HI di part. 

Salva q.s. su Stack 

Immetti ind. part. LO in A e salva 

su Stack 

Immetti ind. fine HI in A e salva 
su Stack 

C.s. per ind. fine LO 

Carica lungh.buffer nastro per cicl 

Car. A con car. per spazio 

Es. clear su buffer nastro 

Ciclo che continua fino a quando la 

intera lungh. in Y non E' clear 

Carica tipo Header 

Prima pos. nel buffer nastro 

Incr. di 1 buffer nastro 

Car. ind.part.LO da pag. 0 

Immetti q.s. in buffer nastro 

Incr. buffer nastro di 1 

Carica ind.part. HI da pag. 0 

Immetti q.s. in buffer nastro 

Increm. di 1 buffer nastro 

Carica ind.fine LO da Pag. 0 

Immettiq.s. in buffer nastro 

Incr.buffer nastro di 1 

Carica ind.fine HI da pag. 0 

Immetti q.s. in buffer nastro 

Incr. buffer nastro di 1 

Salva q.s. in buffer nastro 

Es. clear su contat.lungh. nome file 

presente in pag. 0 

Metti cont. per lungh. nome file 

Confronta q.s. con att. lungh. 

Contr. tutte lettere in Buffer 

Lettere da nome file 

Metti Y di Pag. 0 in buffer nastro 

Metti in buffer - lettere nome file 

Incr.cont.lungh.nome file di 1 

Incr. di 1 buffer nastro 

Ciclo per succ. lettera 
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e9 6 7 : 

20 

87 e9 

jsr 

* Se987 


e96a : 

a9 

69 

Ida 

#$69 


e96c : 

85 

ab 

sta 

$ab [ 

riprty 

e9 6e : 

20 

le ea 

jsr 

* Sealc 


e971 : 

a8 


tay 



e972: 

68 


pia 



e97 3 : 

85 

ae 

sta 

$ae [ 

eal ] 

e9 7 5 : 

68 


pia 



e976 : 

85 

af 

sta 

$af [ 

eah ] 

e9 7 8 : 

68 


pia 



e979 : 

85 

cl 

sta 

$cl [ 

track ] 

e97b: 

68 


pia 



e97c: 

85 

c2 

sta 

$c2 [ 

stah ] 

e97e : 

98 


tya 



e97f : 

60 


rts 



e980 : 

a6 

b2 

ldx 

$b2 [ 

tapel ] 

e9 8 2 : 

a4 

b3 

ldy 

$b3 [ 

tapel+ ( 

e984 : 

cO 

02 

cpy 

#$02 


e9 8 6 : 

60 


rts 



e987 : 

20 

80 e9 

jsr 

* $e980 


e98a : 

8a 


txa 



e9 8b: 

85 

cl 

sta 

$ c 1 [ 

track ] 

e98d : 

18 


eie 



e98e : 

69 

cO 

adc 

#$c0 


e9 90 : 

85 

ae 

sta 

$ae [ 

eal ] 

e992 : 

98 


tya 



e99 3 : 

85 

c2 

sta 

$c2 [ 

stah ] 

e995 : 

69 

00 

adc 

#$00 


e997 : 

85 

af 

sta 

$af [ 

eah ] 

e999 : 

60 


rts 



RICERCA HEADER 

NASTRO PER NOME 


e99a : 

20 

d0 e8 

jsr 

* $e8d0 


e9 9d: 

bO 

le 

bes 

* ?e9bd 


e99f : 

a0 

05 

ldy 

#$05 


e9al : 

84 

9f 

sty 

$9f ( 

ptr 2 ) 

e9a3 : 

a0 

00 

ldy 

#$00 


e9a5 : 

84 

9e 

sty 

$9e [ 

ptrl ] 

e9a7 : 

c4 

b7 

cpy 

$b7 [ 

fnlen ] 

e9a9 : 

f0 

11 

beq 

* $e9bc 


e9ab: 

20 

ae f 7 

jsr 

* $f7ae 


e9ae : 

a4 

9 f 

ldy 

$9f [ 

ptr 2 ] 

e9b0 : 

di 

b2 

emp 

($b2),y [ 

tapel ] 

e9b2 : 

dO 

e6 

bne 

* $e99a 


e9b4 : 

e6 

9e 

ine 

$9e [ 

ptrl ] 

e9b6 : 

e6 

9f 

ine 

$9f [ 

ptr2 ] 

e9b8 : 

a4 

9e 

ldy 

$9e [ 

ptrl ] 

e9ba : 

dO 

eb 

bne 

* $e9a7 


e9bc: 

18 


eie 



e9bd : 

60 


rts 



e9be 

20 

80 e9 

jsr 

* $e980 


e9cl 

e6 

a6 

ine 

. $a6 [ 

bufpt ] 

e9c3 

a4 

a6 

ldy 

$a6 [ 

bufpt ] 

e9c5 

cO 

cO 

cpy 

#$c0 


e9c7 

60 


rts 




Inizio e ind. buffer nastro 

Immag. dati di CHECKSUM e blocco di 

Header in pag.zero 

Scrivi blocco su nastro 

Salva in Y att.cont. di A 

Questa serie di istruzioni serve per 

caricare in A da Stack indirizzi di 

inizio e fine ed immag. in pag. 0. La 

sequenza partendo da $E972: 

Fine ind. Hl-fine ind. LO 
Inizio ind. HI 
Inizio ind. LO 

Salva ancora su A 


Partenza buffer nastro in X 
Idem (altra parte) in Y 
Pag. zero e stack non dispon. 


Vai a ind. buffer nastro 

Trasf. in A buffer in. nastro LO 

Immag.q.s in Pag. 0 

Es. clear di carry per somma 

Ind. di fine=ind.iniz +192 

Metti nuovo ind. di fine LO in Pag. 0 

Inizio buffer nastro HI in A 

Immag. Pag.O ind.ini.I/O HI 

Poni ind.fine HI=ind.part.HI + il 

carry in Pag. 0 come ind.fine HI 


Ricerca pross. header nastro 
Se EOT trovato return 
Sost.al nome in buffer nastro 
Immag. in pag. 0 

Iniz. contat.per lungh.nome file 

in pag. 0 

Confr.lungh.nome 

Se ident. cont. operaz. 

Metti car. nome da trov. 

Sost. al nome file nel buffer nastro 
Confronta con car. da trov. 

Se diverso salta 
Incr. di 1 cont. nome file 
Sposta su buffer nas.nome file +1 
Metti in Y cont. lungh. nome file 
Confronto con caratt. succ. 

Es. clear di carry per indie, di OK 


Prel.ind.buffer nastro 

Incr.buffer nastro +1 in Pag. 0 

Confronta con vai. di 192 definito 


come massimo 
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e9c8 : 

20 

df 

e9 

jsr 

* $e9df 


e9cb: 

fO 

la 


beq 

* $e9e7 


e9cd : 

a0 

lb 


ldy 

#$lb 


e9cf : 

20 

22 

f 7 

jsr 

* $f722 


e9d2 : 

20 

8f 

ea 

jsr 

* $ea8f 


e9d5 : 

20 

df 

e9 

jsr 

* $e9df 


e9d8 : 

dO 

f 8 


bne 

* $e9d2 


e9da : 

a0 

6a 


ldy 

#$6a 


e9dc: 

4c 

22 

f 7 

jmp 

* $f722 


e9df : 

a9 

10 


Ida 

#S10 


e9el : 

24 

01 


bit 

?01 

[ r6510 ] 

e9e3 : 

dO 

02 


bne 

* $e9e7 


e9e5 : 

24 

01 


bit 

$01 

[ r6510 ] 

e9e7 : 

18 



eie 



e9e8 : 

60 



rts 



e9e9 : 

20 

df 

e9 

jsr 

* $e9df 


e9ec: 

fO 

f 9 


beq 

* $e9e7 


e9ee : 

a0 

2e 


ldy 

#$2e 


e9f 0 : 

d0 

dd 


bne 

* $e9cf 


e9f 2 : 

a9 

00 


Ida 

#$00 


e9f 4: 

85 

90 


sta 

$90 

[ status ] 

e9f 6 : 

85 

93 


sta 

$93 

[ verck ] 

e9f 8 : 

20 

87 

e9 

jsr 

* $e987 


e9f b : 

20 

c8 

e9 

jsr 

* $e9c8 


e9fe: 

bO 

if 


bes 

* $ealf 


eaOO : 

78 



sei 



eaO 1 : 

a9 

00 


Ida 

#$00 


ea03: 

85 

aa 


sta 

$aa 

[ rdflg ] 

ea05: 

85 

b4 


sta 

$b4 

[ bitts ] 

ea0 7 : 

85 

bO 


sta 

$b0 

[ cmpO ] 

ea09 : 

85 

9e 


sta 

$9e 

[ ptrl ] 

eaOb: 

85 

9f 


sta 

$9f 

[ ptr2 ] 

eaOd : 

85 

9c 


sta 

$9c 

[ dpsw ] 

eaOf : 

a9 

90 


Ida 

#$90 


eall : 

a2 

0e 


ldx 

#$0e 


eal 3: 

d0 

ii 


bne 

* $ea26 


eal5: 

20 

87 

e9 

jsr 

* $e987 


eal 8 : 

a9 

14 


Ida 

#$14 


eala : 

85 

ab 


. sta 

$ab 

[ riprty 

ealc : 

20 

e9 

e9 

jsr 

* $e9e9 


eal f : 

bO 

la 


bes 

* $ea9b 


ea21 : 

78 



sei 



ea22 : 

a9 

82 


Ida 

#$82 


ea24 : 

a2 

08 


ldx 

#$08 


ea26 : 

aO 

00 


ldy 

#$00 


ea28 : 

8c 

la 

d0 

sty 

* $d01a 


ea2b: 

88 



dey 



ea2c : 

8c 

19 

dO 

sty 

* $d019 


ea2f : 

8d 

Od 

de 

sta 

* $dc0d 


ea32 : 

ad 

0e 

de 

Ida 

* $dc0e 


ea35 : 

09 

19 


ora 

#$19 


ea3 7 : 

8d 

Of 

de 

sta 

* $dcOf 


ea3a : 

29 

91 


and 

#$91 


ea3c : 

8d 

Ob 

Oa 

sta 

$0a0b 


ea3f : 

20 

ec 

el 

jsr 

* $e7ec 


ea42 : 

ad 

ii 

dO 

Ida 

* $d011 


ea45 : 

a8 



tay 



ea46 : 

29 

10 


and 

#$10 



Controllo tasto premuto 

Contr. pos. continua 

Sposta in Y PRESS PLAY ON TAPE e 

visual.messaggio 

Controllo per tasto STOP 

Esec. del controllo tasto premuto 

Contr. neg. a ciclo ritardo 

Pos. per messaggio OK 

Vis. messaggio di contr. 

Fissa bit 4 per contr. tasto cass. 
Contr. dati porta reg.proc. 

Se tasto non prem. esci 
Esegui di nuovo contr. 

Clear di carry per flag ZERO 


Controllo tasto cass. premuto 
Se tasto prem. continua 
Carica PRESS R & P ON TAPE 
Contr.rit.nastro e ciclo STOP 
Lett. dati da nastro 
Iniz. status 

Es. clear su punt. LOAD/VERIFY 
Pre.ind.buffer nastro e ind.fine 
Attesa per tasto prem.su cassetta 
Contr. STOP premuto 
Disab. tutti gli interrupt 
Iniz. vai. per immag. IRQ 
Immag.byte ing.modo lettura 
Punt. temp. nastro 
Costante temp. di cassetta 
Errore cassetta passo 1 
Errore cassetta passo 2 
Flag nastro per byte rie. 

Flag IRQ su relat. pin 
Numero vett. di IRQ 
Scrivi blocco dati su nastro 
Carica ind.buffer nastro 
Fissa lungh. per scrittura 
Immag. in Pag. 0 

Attendi per tasto RECORD & PLAY prem. 
Se STOP premuto vai a ind. 

Disab. tutti gli interrupt 
Se timer B in UNDERFLOW genera IRQ 
Num. vetto. IRQ ($EE2E) 

Fissa mask di Interrupt regi. CIA 
Disabilita Interrupt 
Decr. di 1 reg. Y e fissa il regis. 
di Interrupt (IRR) 

Reset di IRQ 

Car. A reg.contr.CIA timer B 

Es. un OR e fai partire 

Contr. reg. B IRQ su timer B 

Fissa punt. di confr. tempor. per 

operazioni su nastro 

Attendi per fine trasf. RS-232 

Copia in A reg. contr. VIC 

Trasf. q.s. in Y 

Bit 4 a 1 per. schermo attivo 
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ea48 : 

8d 

39 

0a 

sta 

$0a39 



ea4b : 

98 



tya 




ea4c : 

29 

6f 


and 

#$6f 



ea4e : 

8d 

11 

dO 

sta 

* $d011 



ea51 : 

20 

74 

e5 

jsr 

* $e574 



ea54 : 

ad 

14 

03 

Ida 

$0314 



ea57 : 

8d 

09 

Oa 

sta 

$0a09 



ea5a : 

ad 

15 

03 

Ida 

$0315 



ea5d: 

8d 

Oa 

Oa 

sta 

$0a0a 



ea60 : 

20 

9b 

ee 

jsr 

* $ee9b 



ea63 : 

a9 

02 


Ida 

#$02 



ea65: 

85 

be 


sta 

$be 

[ 

fsblk ) 

ea67 : 

20 

5a 

ed 

jsr 

* $ed5a 



ea6a : 

a5 

01 


Ida 

$01 

( 

r6510 ] 

ea6c : 

29 

lf 


and 

#$lf 



ea6e : 

85 

01 


sta 

$01 

[ 

r6510 ] 

ea7 0 : 

85 

cO 


sta 

$c0 

[ 

casi ] 

ea72 : 

a2 

ff 


ldx 

#$ff 



ea74 : 

aO 

ff 


ldy 

#$ff 



ea76 : 

88 



dey 




ea77 : 

dO 

fd 


bne 

* $ea76 



ea7 9 : 

ca 



dex 




ea7a: 

dO 

f 8 


bne 

* $ea74 



ea7c : 

58 



eli 




ea7d : 

ad 

Oa 

Oa 

Ida 

$0a0a 



ea80 : 

cd 

15 

03 

emp 

$0315 



ea83 ; 

18 



eie 




ea8 4 : 

fO 

15 


beq 

* $ea9b 



ea86 : 

20 

8f 

ea 

jsr 

* $ea8f 



ea89: 

20 

3d 

f 6 

jsr 

* $f63d 



ea8c : 

4c 

7d 

ea 

j m P 

* $ea7d 



ea8f : 

20 

el 

ff 

jsr 

* $ffel 


[ stop ] 

ea9 2: 

18 



eie 




ea9 3 : 

dO 

Ob 


bne 

* $eaa0 



ea95 : 

20 

57 

ee 

jsr 

* $ee57 



ea98 : 

38 



sec 




ea9 9 : 

68 



pia 




ea9a : 

68 



pia 




ea9b : 

a9 

00 


Ida 

#$00 



ea9d : 

8d 

Oa 

Oa 

sta 

$0a0a 



eaaO : 

60 



rts 





eaal : 

86 

bl 

stx 

$bl [ 

temp ] 

eaa3 : 

a5 

bO 

Ida 

$b0 [ 

cmpO ] 

eaa5 : 

Oa 


asl 

a 


eaa6 : 

Oa 


asl 

a 


eaa7 : 

18 


eie 



eaa8 : 

65 

bO 

adc 

$b0 [ 

cmpO ] 

eaaa : 

18 


eie 



eaab: 

65 

bl 

adc 

$bl [ 

temp ] 

eaad : 

85 

bl 

sta 

$bl [ 

temp ] 

eaaf : 

a9 

00 

Ida 

#$00 


eabl : 

24 

bO 

bit 

$b0 [ 

cmpO ] 

eab3 : 

30 

01 

bmi 

* $eab6 


eab5 : 

2a 


rol 

a 


eab6 : 

06 

bl 

asl 

$bl [ 

temp ] 

eab8 : 

2a 


rol 

a 


eab9 : 

06 

bl 

asl 

$bl [ 

temp ] 

eabb : 

2a 


rol 

a 



Immag. vai.in mag. temp. VDC 

Vecchio vai. in A 

Es.clear bit 8 

Disab schermo 

Metti clock a 1 MHz 

Ind. vettore LO di IRQ in IRQ 

Immag. temp. per operaz.nastro 

Ind. vettore HI di IRQ in IRQ 

Immag. temp. per operaz. nastro 

Reset vettore di IRQ per operaz. nas. 

N.blocchi data da leggere 

Metti q.s. in pag. 0 

Iniz. contat. bit seriale di I/O 

Attiva motore cassetta mettendo a 1 

il quarto bit del registro dati 

della porta del proc. 

Fissa punt. per motore nastro 

Cont. per ciclo rit. HI 

Cont. per ciclo rit. LO 

Decrementa Y e X contando da 65535 a 

0 per creare un ritardo necessario 

per le operazioni su 

nastro 

Abilita Interrupt per I/O nastro 
Confronta vettore nastro IRQ con 
norm. punt. HI di IRQ 
Es. clear di carry per indie. 

Contr. vettori IRQ 
Controlla tasto di STOP prem. 

Se contr. pos. fissa Flag 

Continua per fine 

Contr. tasto STOP 

Fissa indie 

Tasto non premuto, RTS 

Motore disatt. fissa norm.IRQ 

Fissa Carry per errore 

Metti in A ind.ritorno prel. da 

Stack. Quindi esegui clear 

Carica in A cod. per interrupt 

Fissa per IRQ normale 


Immag. X in Pag. 0 
In A costante di temp. per nastro 
La prec. costante e' moltiplicata 
per un fattore 4 
Es. clear di carry per somma 
Sommaci cost. di temporizz 
Clear di carry per somma 
Somma cont. reg. X ed immetti 
questo valore in Pag. 0 
Carica valore LO per timer A 
Contr.cost.di temporizz.» 128 
Se contr. pos. salta 
Il vai. prec. per il timer A viene 
moltipl. per 4 con rotaz. del cont. 
di A in unione allo spost. a sinis. 
della costante di tempor. nastro 
**** 
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eabe: 

aa 



tax 


eabd : 

ad 

06 

de 

Ida 

* $dc06 

eacO : 

c9 

16 


emp 

#$16 

eac2 : 

90 

f 9 


bcc 

* $eabd 

eac4 : 

65 

bl 


adc 

$bl [ temp 

eac6 : 

8d 

04 

de 

sta 

* $dcO 4 

eac9 : 

8a 



txa 


eaca : 

6d 

07 

de 

adc 

* $dc07 

eacd : 

8d 

05 

de 

sta 

* $dc05 

eadO : 

ad 

Ob 

Oa 

Ida 

$0a0b 

ead3 : 

8d 

Oe 

de 

sta 

* $dcOe 

ead6: 

8d 

Od 

Oa 

sta 

$0a0d 

ead9 : 

ad 

Od 

de 

Ida 

* $dcOd 

eadc: 

29 

10 


and 

#$10 

eade : 

fO 

09 


beq 

* $eae9 

eaeO : 

a9 

ea 


Ida 

#$ea 

eae2 : 

48 



pha 


eae3 : 

a9 

e9 


Ida 

#$e9 

eae5 : 

48 



pha 


eae6 : 

4c 

c8 

ee 

jmp 

* $eec8 

eae9 : 

58 



eli 


eaea : 

60 



rts 



eaeb: 

ae 

07 

de 

ldx 

* $dc07 


eaee : 

aO 

f f 


ldy 

#$ff 


eaf 0 : 

98 



tya 



eaf 1 : 

ed 

06 

de 

sbe 

* $dc06 


eaf 4 : 

ec 

07 

de 

cpx 

* $dcO 7 


eaf 7 : 

dO 

f 2 


bne 

* $eaeb 


eaf 9 : 

86 

bl 


stx 

$bl [ 

temp 

eaf b : 

aa 



tax 



eaf c: 

8c 

06 

de 

sty 

* $dc06 


eaf f : 

8c 

07 

de 

sty 

* $dc07 


ebO 2 : 

a9 

19 


Ida 

#$19 


eb04 : 

8d 

Of 

de 

sta 

* $dc0f 


ebO 7 : 

ad 

Od 

de 

Ida 

* $dc0d 


ebOa : 

8d 

Oc 

Oa 

sta 

$0a0c 


ebOd : 

98 



tya 



ebOe : 

e5 

bl 


sbe 

$bl [ 

temp 

ebl 0 : 

86 

bl 


stx 

$bl [ 

' temp 

ebl 2 : 

4a 



lsr 

a 


ebl 3 : 

66 

bl 


ror 

$bl | 

I temp 

ebl 5: 

4a 



lsr 

a 


ebl6 : 

66 

bl 


ror 

$bl [ 

' temp 

ebl 8 : 

a5 

bO 


Ida 

$b0 | 

’ cmpO 

ebla : 

18 



eie 



eblb : 

69 

3c 


adc 

#$3c 


ebld : 

c5 

bl 


emp 

$bl | 

^ temp 

ebl f : 

bO 

4a 


bes 

* $eb6b 


eb21 : 

a6 

9c 


ldx 

$9c | 

[ dpsw 

eb23 : 

fO 

03 


beq 

* $eb28 


eb25 : 

4c 

lf 

ec 

jmp 

* $eclf 


eb28 : 

a6 

a3 


ldx 

$a3 | 

; pcntr 

eb2a : 

30 

lb 


bini 

* $eb47 


eb2c: 

a2 

00 


ldx 

#$00 


eb2e : 

69 

30 


adc 

#$30 


eb30 : 

65 

bO 


adc 

$b0 | 

[ cmpO 

eb32 : 

c5 

bl 


emp 

$bl 

[ temp 

eb34 : 

bO 

le 


bes 

* $eb5 2 



Trasf in X vai. Hi di Timer 
Metti in A vai CIA 1 timer B 
Metti timer B HI a 63755 
Contr. q.s.se pos.ciclo lett.timer 
Somma LO per inizializz 
Metti timer A LO 

Somma in A vai. HI di inizializz. 
con carry su timer B alto 
Metti q.s. in timer A HI 
Copia in A val.iniz da nastro 
Costan.per part.timer A 
Reset flag timer A 
Reg. di contr. interrupt in A 
Contr.impulso neg.su pin FLAG 
Se imp.non arriv.attendine arrivo 
Immetti il contenuto delle locaz. di 
pag. 0 $EA e $E9 su stack consid.- 
come indirizzo di return 
* * * 

Simula chiamata di Interrupt 
Abilita tutti interrupt 


Metti in X timer B di CIAl 
Iniz. reg Y con vai. HI 
Trasf.q.s. in A per sottraz. 

Dim. timer B di #255 

Contr. decr.timer B HI 

Se contr. pos.eseg.confr. temp. 

Immetti timer B HI in Pag. 0 

Temp. Lo fino arrivo ult. segn in X 

Timer B LO 

Timer B HI 

Abilita modo funz. timer B 
Fai partire timer B 
Metti in A ICR 
Immag. per nastro q.s. 

Iniz. A con #255 

Sottrai 255 da timer B HI 

Metti in X di pag. 0 tempo trasc. 

Il valore immag. in A per tempo 
trascorso e ' diviso per un fattore 
4 

Prendi cost. di temp. da pag.0 
Es.clear di carry per somma 
Somma 60 a cost. di tempor. 

Confr. ultimo segn.con tem. 

Se magg. nessuna inf. e salta 
Contr.se quanto rie e' un byte 
Se no salta 

Cont. rout.ricev. byte 

Contr. se byte e' letto per int. 

Se pos. esegui valut. codice per imp 
corto in X (0) 

Fissa A per lett. impulso 
Sommaci cost. di temporizz. 

L' impulso ricev. e' di tipo cor. 

Se si salta a imp. lungo 
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eb36 : 

e8 


inx 



eb37 : 

69 

26 

adc 

#$26 


eb3 9 : 

65 

bO 

adc 

$b0 

cmpO ] 

eb3b : 

c5 

bl 

cmp 

$bl 

’ temp ] 

eb3d : 

bO 

17 

bcs 

* $eb56 


eb3f : 

69 

2c 

adc 

#$2c 


eb41 : 

65 

bO 

adc 

$b0 

cmpO ] 

eb4 3 : 

c5 

bl 

cmp 

$bl 

’ temp ] 

eb4 5 : 

90 

03 

bcc 

* $eb4a 


eb4 7 : 

4c 

cf eb 

jmp 

* $ebcf 


eb4a : 

a5 

b4 

Ida 

$b4 

! bitts 

eb4c : 

fO 

ld 

beq 

* $eb6b 


eb4e: 

85 

a8 

sta 

$a 8 

[ bitei 

eb50 : 

dO 

19 

bne 

* $eb6b 


eb52 : 

e6 

a9 

ine 

$a9 

rinone 

eb54 : 

bO 

02 

bcs 

* $eb58 


eb56 : 

c6 

a9 

dee 

$a9 

rinone 

eb58 : 

38 


sec 



eb5 9 : 

e9 

13 

sbe 

#$13 


eb5b : 

e5 

bl 

sbe 

$bl 

[ temp ] 

eb5d : 

65 

92 

adc 

$92 

[ svxt ] 

eb5f : 

85 

92 

sta 

$92 

[ svxt ] 


eb61 : 

a5 

a4 


Ida 

$a4 

[ firt ] 

eb6 3 : 

49 

01 


eor 

#$01 


eb6 5 : 

85 

a4 


sta 

$a4 

[ firt ] 

eb6 7 : 

fO 

2b 


beq 

* $eb94 


eb69 : 

86 

c5 


stx 

$c5 

[ data ] 

eb6b : 

a5 

b4 


Ida 

$b4 

[ bitts 

eb6d : 

fO 

22 


beq 

* $eb91 


eb6f : 

ad 

Oc 

0a 

Ida 

$0a0c 


eb72 : 

29 

01 


and 

#$01 


eb7 4 : 

dO 

05 


bne 

* $eb7b 


eb76 : 

ad 

Od 

Oa 

Ida 

$0a0d 


eb7 9 : 

dO 

16 


bne 

* $eb91 


eb7b : 

a9 

00 


Ida 

#$00 


eb7d : 

85 

a4 


sta 

$a4 

[ firt 

eb7f : 

8d 

Od 

Oa 

sta 

$0a0d 


eb82 : 

a5 

a3 


Ida 

$a3 

[ pcntr 

eb84 : 

10 

30 


bpl 

* $ebb6 


eb86 : 

30 

bf 


bmi 

* $eb4 7 


eb8 8 : 

a2 

a6 


ldx 

#$a6 


eb8a : 

20 

al 

ea 

jsr 

* $eaal 


eb8d : 

a5 

9b 


Ida 

$9b 

[ prty 

eb8f : 

dO 

b9 


bne 

* $eb4a 


eb91 : 

4c 

33 

ff 

jmp 

* $ff33 


eb94 : 

a5 

92 


Ida 

$92 

[ svxt 

eb9 6 : 

fO 

07 


beq 

* $eb9f 


eb9 8 : 

30 

03 


bmi 

* $eb9d 


eb9a : 

c6 

bO 


dee 

$b0 

[ cmpO 

eb9c : 

2c 



. byte 

$ 2c 


eb9d : 

e6 

bO 


ine 

$d0 


eb9f : 

a9 

00 


Ida 

#$00 


ebal : 

85 

92 


sta 

$92 

[ svxt 

eba3 : 

e4 

c5 


cpx 

$c5 

[ data 

eba5 : 

dO 

Of 


bne 

* $ebb6 


eba7 : 

8a 



txa 



eba8 : 

dO 

aO 


bne 

* $eb4a 



Metti in X codice per imp.lungo 
Fissa A per lett. imp. 

Sommaci cost. di temporizz. 

Contr. per imp. lungo 
Se pos. salta altre durate 
Controlla se atteso impulso e' di tipo 
piu ' lungo 

Se contr. pos.e' un byte di header 
Se contr. neg. salta 
Ricez. byte 

Contr. se timer A e' abilit. 

Se no salta 

Fissa puntatore per READ ERROR 
Salta a lett. interrupt timer 
Incr. di 1 punt.lungh.impulsi 
Salta se var. decrem. 

Decr di 1 punt.lungh.imp. 

Fissa il carry per sottraz. da 
valore letto 19 
Sottrai tempo trasc. 

Somma per temporizz. in pag. 0 
Correz. flag e immag. 


Inverti il flag di Pag.O per la 
ricezione di entrambi i tipi di imp. 
Immag. in pag. 0 entr. gli imp. 
ricevuti. Quindi salta 
Immag. segn. ricev. in Pag. 0 
Contr. se timer A e' abilitato 
Se contr. neg. term. interrupt 
Metti cont. di ICR in A 
Contr. se era un Interrupt timer A 
Se si salta a ind. 

Contr. se timer A abilit. 

Se contr.neg. termina interrupt 
Es. clear in pag. 0 per cont. di 
impulso (vai.LO) 

Fissa punt. per timeout di timer A 
Contr. che byte sia compì, letto 
Se neg. salta ad ind. 

Se pos. procedi di conseguenza 
Car. vai. iniz. per timer A 
Prep. nastro per lettura 
Byte di parità in Pag. 0 in A 
Se <> 0 errore di parità ' 

Vai a kernal Interrupt 

Metti in A punt. correz. temporizz. 

Es. clear su Flag evai ad ind. 

Contr. per >0. 

Decr.dii costan.temporizz.in pag.O 
Vai a $eb9f 

Incrementa costante di tempor. 
Metti in A punt.cost.di temporizz. 
Cancella correzióne (LO) 

Confronta impulso ricevuto con 
quello atteso. Se <> Ok e salta 
Contr. se imp. ricev. e' corto 
Se neg. errore 





ebaa: a5 a9 Ida $a9 [ rinone ] 

ebac: 30 bd bmi * $eb6b 

ebae: c9 10 cmp #$10 

ebbO: 90 b9 bcc * $eb6b 

ebb2: 85 96 sta $96 [ syno ] 

ebb4i bO b5 bcs * $eb6b 

ebb6: 8a txa 

ebb7: 45 9b eor $9b [ prty ] 

ebb9: 85 9b sta $9b [ prty ] 

ebbb: a5 b4 Ida $b4 [ bitts ] 

ebbd: fO d2 beq * $eb91 

ebbf: c6 a3 dee $a3 [ pcntr ] 

ebcl: 30 c5 bmi * $eb88 

ebc3: 46 c5 lsr $c5 [ data ] 

ebc5: 66 bf ror $bf [ drive ] 

ebc7: a2 da ldx #$da 

ebc9: 20 al ea jsr * $eaal 

ebcc: 4c 33 ff jmp * $ff33 

ebef: a5 96 Ida $96 [ syno ] 

ebdl: fO 04 beq * $ebd7 

ebd3: a5 b4 Ida $b4 [ bitts ] 

ebd5: fO 07 beq * $ebde 

ebd7: a5 a3 Ida $a3 [ pcntr ] 

ebd9: 30 03 bmi * $ebde 

ebdb : 4c 56 eb jmp * $eb56 

ebde: 46 bl lsr $bl [ temp ] 

ebeO: a9 93 Ida #$93 

ebe2: 38 sec 

ebe3: e5 bl sbe $bl [ temp ] 

ebe5: 65 bO adc $b0 [ cmpO ] 

ebe7: Oa asl a 

ebe8: aa tax 

ebe9: 20 al ea jsr * $eaal 

ebec: e6 9c ine $9c [ dpsw ] 

ebee: a5 b4 Ida $b4 [ bitts ] 

ebfO: dO 11 bne * $ec03 

ebf2: a5 96 Ida $96 [ syno ] 

ebf4: fO 26 beq * $eclc 

ebf6: 85 a8 sta $a8 [ bitei ] 

ebf 8 : a9 00 Ida #$00 

ebfa : 85 96 sta $96 [ syno ] 

ebfc: a9 81 Ida #$81 

ebfe: 8d Od de sta * $dc0d 

ecOl: 85 b4 sta $b4 [ bitts ] 

ec03: a5 96 Ida $96 [ syno ] 

ec05: 85 b5 sta $b5 [ diff ] 

ec07: fO 09 beq * $ecl2 

ecO9 : a9 00 Ida #$00 

ecOb: 85 b4 sta $b4 [ bitts ] 

ecOd: a9 01 Ida #$01 

ecOf: 8d Od de sta * $dc0d 

ecl2: a5 bf Ida $bf [ drive ] 

eoi 4: 85 bd sta $bd [ roprty ] 

ecl6: a5 a8 lda $a8 [ bitei ] 

ecl8: 05 a9 ora $a9 [ rinone ] 

ecla: 85 b6 sta $b6 [ prp ] 

eclc: 4c 33 ff jmp * $ff33 

eclf: 20 5a ed jsr * $ed5a 

ec22: 85 9c sta $9c [ dpsw ] 

ec24: a2 da ldx #$da 


Cambia in A punt.lungh.impu1 so 
Contr.se vai.neg.Quindi salta 
Contr.ricez.per 16 impulsi corti 
Se neg. errore 
Se pos. e' un flag di EOB 
Salto incond. 

Trasf bit ricevuto in A 
Confronta con parità ' nastro 
Immag. in parità' nastro 
Contr. abilit. timer A 
Se disabil. fine interrupt 
Decr.di 1 cont.immag.bit in Pag. 0 
Contr.ricez. bit di parità'.Pos.salta 
Contr. neg.mett^. bit letto in Pag.O 
per dati nastro 

Valore di inizializz-per timer A 

Predisp.sincronizz.cassetta 

Vai a rout. di IRQ 

Contr. ricez. EOB 

Se neg.vai a lett. timer 

Contr. abilit. timer A 

Se neg. vai contr.cont. bit 

Contr.se cont.bit in Pag.O in negati. 

Se contr.pos.attendi per byte Header 

Elab.impulso lungo. 

Dim. tempo di elab.fino ad incontr. 

ultimo dato negativo e quindi 

sottrai questo valore 

dalla costante 147 

Somma cost. di temporizz. in Pag.O 

Raddoppia questo valore 

Trasf. in X.Iniz.vai.per timer A 

Prepara sincron. di cassetta 

Incr.punt. in Pag.O per byte ricev. 

Controlla abilitaz.timer A 

Se abili, salta 

Contr. ricez. EOB 

Se neg. vai a normale rout.IRQ 

Visualizz. per lettura errore 

Prepara immag. per EOB 

Cont.q.s. 

Val.codice abilitaz.timer A 

Abilita Interrupt per timer A 

Fissa flag in Pag.O timer A 

Copia A di Pag. 0 per ricez. EOB 

Iniz. flag per EOB 

Se nessun EOB salta 

Codice di contr.per disab.timer A 

Immetti punt. in pag.O 

Cod. di contr.Disab. timer A 

Interrupt in reg. contr. CIA 

Esegui lett. Pag.O 

Immag. in pag. 0 per lett. byte 

Unisci punt. in pag.O per lett.err. 

con punt. impulsi 

Metti in err.cod.byte 

Vai a IRQ 

Fissa cont. bit per uscita seriale 
Reset punt.per Byte ricev. 

Valore di inizializz. per timer A 
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ec26 : 

20 

al 

ea 

jsr 

* $eaal 


ec29 : 

a5 

be 


Ida 

$be 

[ fsblk ; 

ec2b: 

fO 

02 


beq 

* $ec2f 


ec2d : 

85 

a7 


sta 

$a7 

[ shcnl 

ec2f : 

a9 

Of 


Ida 

#$0f 


ec31 : 

24 

aa 


bit 

$aa 

[ rdflg | 

ec33 : 

10 

17 


bpl 

* $ec4c 


ec35: 

a5 

b5 


Ida 

$b5 

[ diff ] 

ec37 : 

dO 

Oc 


bne 

* $ec45 


ec39: 

a6 

be 


ldx 

$be 

[ fsblk ; 

ec3b : 

ca 



dex 



ec3c : 

dO 

Ob 


bne 

* $ec4 9 


ec3e : 

a9 

08 


Ida 

#$08 


ec40 : 

20 

57 

f 7 

jsr 

* $f757 


ec43 : 

dO 

04 


bne 

* $ec49 


ec4 5 : 

a9 

00 


Ida 

#$00 


ec47 : 

85 

aà 


sta 

$aa 

[ rdflg ' 

ec49: 

4c 

33 

ff 

jmp 

* $ff33 


ec4c: 

70 

31 


bvs 

* $ec7f 


ec4e : 

dO 

18 


bne 

* $ec68 


ec5 0 : 

a5 

b5 


Ida 

$b5 

t diff ] 

ec52: 

dO 

f 5 


bne 

* $ec49 


ec54 : 

a5 

b6 


Ida 

$b6 

[ P r P 1 

ec56 : 

dO 

fi 


bne 

* $ec4 9 


ec58 : 

a5 

a7 


Ida 

$a7 

[ shcnl 

ec5a : 

4a 



lsr 

a 


ec5b : 

a5 

bd 


Ida 

$bd 

[ roprty 

ec5d : 

30 

03 


bmi 

* $ec62 


ec5f : 

90 

18 


bcc 

* $ec79 


ec61 : 

18 



eie 



ec62 : 

bO 

15 


bes 

* $ec79 


ec64 : 

29 

Of 


and 

#$0f 


ec66 : 

85 

aa 


sta 

$aa 

[ rdflg 

ec68 : 

c6 

aa 


dee 

$aa 

[ rdflg 

ec6a : 

dO 

dd 


bne 

* $ec49 


ec6c : 

a9 

40 


Ida 

#$40 


ec6e : 

85 

aa 


sta 

$aa 

[ rdflg 

ec70: 

20 

51 

ed 

jsr 

* $ed51 


ec7 3 : 

a9 

00 


Ida 

#$00 


ec75 : 

85 

ab 


sta 

$ab 

[ riprty 

ec7 7 : 

fO 

dO 


beq 

* $ec49 


ec79 : 

a9 

80 


Ida 

#$80 


ec7b: 

85 

aa 


sta 

$aa 

[ rdflg 

ec7d : 

dO 

ca 


bne 

* $ec4 9 


ec7f : 

a5 

b5 


Ida 

$b5 

t diff ] 

ec81 : 

fO 

Oa 


beq 

* $ec8d 


ec83 : 

a9 

04 


Ida 

#$04 


ec85 : 

20 

57 

f 7 

jsr 

* $f757 


ec88 : 

a9 

00 


Ida 

#$00 


ec8a : 

4c 

Oc 

ed 

jmp 

* $ed0c 


ec8d : 

20 

b7 

ee 

jsr 

* $eeb7 


ec90: 

90 

03 


bcc 

* $ec9 5 


ec92 : 

4c 

Oa 

ed 

jmp 

* $ed0a 


ec95 : 

a6 

a7 


ldx 

$a7 

[ shcnl 

ec97 : 

ca 



dex 



ec98 : 

fO 

2e 


beq 

* $ecc8 


ec9a : 

a5 

93 


Ida 

$93 

[ verck 

ec9c : 

fO 

Od 


beq 

* $ecab 


ec9e : 

aO 

00 


ldy 

#$00 


ecaO : 

20 

cc 

fi 

jsr 

* $f7cc 



Prep. sincr. di cassetta 
Contr.n. blocchi riman.=0 
Se pos. salta 

Ese. reset su n.blocchi da legg. 

Mask out vai.cont.prima di lettura 
Contr. punt.lettura da nastro 
Se tutti car. ricev. fine 
Contr.ricez. EOB 
Sepos, salta 

Contr. se n. restanti blocchi da 

leggere =1 

Se neg. vai a IRQ 

Metti in A bit 3 per LONG BLOCK 

Reset sui punt. di sistema 

Salto ine. a rout. IRQ 

Metti punt.Pag.0 in lettura nastro 

Fissane la scansione 

Vai a IRQ normale 

Punt. lett. nastro in READ 

Idem ma in COUNT 

Contr. ricez. EOB 

Se pos. vai a IRQ normale 

Contr. errore lett. byte 

Se errore vai a IRQ 

Metti in A n.blocchi da leggere 

Metti bit 0 in carry 

Mettiin A byte letto da Pag. 0 

Se e ' un COUNT BYTE salta 

Se e' letto piu' di un blocco salta 

Clear di carry{che e' punt.) 

Salta se e' letto solo un blocco 
Mask out nibble super, (bits 4-7) 
Immag. in A il valore 
Contr. ricez,.tutti i byte di sincr. 
Se neg.IRQ normale 

Metti bit 6 in A e metti a READ punt 

lettura nastro di Pag.0 

Copia indir, partenza di I/O 

Metti a 0 punt. di pag. 0 per lett. 

CHECKSUM 

Vai a IRQ normale 

Metti bit 7 in A e metti punt. lett. 

nastro di Pag. 0 a fine 

Vai a IRQ normale 

Contr. se EOB 

Se neg. salta 

Metti bit 2 in A per blocco corto 
Azzera i punt. di sistema 
Metti cod. lett. punt. a 0 
Salto assol. a ind. 

Contr.rintracc. fine 
Se neg. continua normalmente 
Lett. fine di un blocco 
Contr. se n. blocchi da leggere 
= 1 

Se pos. salta 

Contr. per marker di Verify 
Se q.s.non fissato salta 
Metti a 0 Y per confronto 
Rout. per LSV 
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eca3 : 

C5 

bd 


emp 

$bd 

[ roprty 

eca5 : 

fO 

04 


beq 

* $ecab 


eca7 : 

a9 

01 


Ida 

#$01 


eca9 : 

85 

b6 


sta 

$b6 

1 prp ] 

ecab: 

a5 

b6 


Ida 

$b6 

[ prp ] 

ecad : 

fO 

4c 


beq 

* $ecfb 


ecaf : 

a2 

3d 


ldx 

#$3d 


ecbl : 

e4 

9e 


cpx 

$9e 

[ ptrl ] 

ecb3 : 

90 

3f 


bcc 

* $ecf 4 


ecb5 : 

a6 

9e 


ldx 

$9e 

[ ptrl ] 

ecb7 : 

a5 

ad 


Ida 

$ad 

[ sah ] 

ecb9 : 

9d 

01 

01 

sta 

$0101,x 


ecbc: 

a5 

ac 


Ida 

$ac 

[ sai ] 

ecbe : 

9d 

00 

01 

sta 

$0100,x 


eccl : 

e8 



inx 



ecc2 : 

e8 



inx 



ecc3 : 

86 

9e 


stx 

$9e 

[ ptrl ] 

ecc5 : 

4c 

fb 

ec 

jmp 

* $ecfb 


ecc8 : 

a6 

9f 


ldx 

$9f 

[ ptr2 ] 

ecca : 

e4 

9e 


cpx 

$9e 

[ ptrl ] 

eccc : 

fO 

37 


beq 

* $ed05 


ecce: 

a5 

ac 


Ida 

$ac 

.[ sai ] 

ecdO : 

dd 

00 

01 

emp 

$0100,x 


ecd3 : 

dO 

30 


bne 

* $ed05 


ecd5 : 

a5 

ad 


Ida 

$ad 

[ sah ] 

ecd7 : 

dd 

01 

01 

emp 

$0101,x 


ecda : 

dO 

29 


bne 

* $ed05 


ecdc : 

e6 

9f 


ine 

$9f 

[ ptr2 ] 

ecde : 

e6 

9 f 


ine 

$9f 

[ ptr2 ] 

eceO : 

a5 

93 


Ida 

$93 

[ verck 

ece2 : 

fO 

Oc 


beq 

* $ecf0 


ece4 : 

aO 

00 


Idy 

#$00 


ece6 : 

20 

cc 

f 7 

jsr 

* $f7cc 


ece9 : 

c5 

bd 


emp 

$bd 

[ roprty 

eceb: 

fO 

18 


beq 

* $ed05 


eced: 

c8 



iny 



ecee : 

84 

b6 


sty 

$b6 

[ prp ] 

ecf 0 : 

a5 

b6 


Ida 

$b6 

t prp ] 

ecf 2 : 

fO 

07 


beq 

* $ecfb 


ecf 4 : 

a9 

10 


Ida 

#$10 


ecf 6 : 

20 

57 

f 7 

jsr 

* $f757 


ecf 9 : 

dO 

Oa 


bne 

* $ed05 


ecfb: 

a5 

93 


Ida 

$93 

[ verck 

ecf d : 

dO 

06 


bne 

* $edO 5 


ecf f : 

a8 



tay 



edO 0 : 

a5 

bd 


Ida 

$bd 

[ roprty 

ed02 : 

20 

bc 

f 7 

jsr 

* $f7bc 


ed05 : 

20 

cl 

ee 

jsr 

* $eecl 


edO 8 : 

dO 

44 


bne 

* $ed4e 


edOa : 

a9 

80 


Ida 

#$80 


edOc: 

85 

aa 


sta 

$aa 

[ rdflg 

edOe : 

78 



sei 



edOf : 

a2 

01 


ldx 

#$01 


edll : 

8e 

Od 

de 

stx 

* $dc0d 


edl4 : 

ae 

Od 

de 

ldx 

* $dc0d 


edl7 : 

a6 

be 


ldx 

$be 

[ fsblk 

edl9 : 

ca 



dex 



edla : 

30 

02 


bmi 

* $edle 


edlc: 

86 

be 


stx 

$be 

[ fsblk 

edle : 

c6 

a7 


dee 

$a7 

[ shcnl 


) Confr.con byte letto 

Se entr.= allora OK e salta 
Codice per err. lett. carattere 
Punt. in Pag. 0 per nastro 
Contr. punt. prec. per rii.errore 
Se nessun errore,salta 
Controllo rilev err. 31 durante la 
fase di lettura 

Se pos.salta perche' non corregg. 
Spos.in Stack per lett. errore 
Poni LO ind.byte di errore 
Immag. q.s. in stack 
Eseguì q.s. ma per 
byte HI 

Increm.punt. ind. errore e cont. 
n.errore di 2 
Immag. in cont. errori 
Se nessun errore cont. 

Contr. per correz. di tutti gli err. 
letti 

Se pos. continua 

Metti a vai. LO att. ind. byte 

Confr. con ind.err. LO 

Se diverso salta 

Esegui quanto sopra ma per 

byte HI 

Se <> salta 

Increm cont. correz errori in Pag.O 
per un passo 2x2 
] Controllo per verify marker 
Se neg. fissa marker 
Spost. per routine 
Rout.per chiam. LVS 
] Contr.byte letto =byte in memoria 
Se pos. salta 
Incrempuntatore 
Immetti in punt.err. pag. 0 
Contr.rilev. errore 
Se nessun errore salta 
Bit 4 lett. errori non corretti 
Ese. azz.punt. di sistema 
Salto incond. a ind. 

] Controlla verify marker 
Se pos,. salta 
Metti a 0 punt. spostam. 

] Metti byte in A 
Vai a rout. STASH 
Incr ind. di inizio I/O 
Vai a IRQ. 

Metti a fine cod.punt.lettura 
] Metti in A punt.lett.nastro 
Disabilita tutti interrupt 
Cari.vai. per interrupt timer A 
Disabilita ICR 
Es. reset puntat. interrupt 
] Contr. seil n. di blocchi che resta 
da proces. =0 
Se = 0 salta 

] Immag. nuovo n.in Pag.O 
] Decr. di 1 cont. blocchi in Pag.O 
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ed2 0 : 

fO 

08 


beq 

* $ed2a 


ed2 2 : 

a5 

9e 


Ida 

$9e 

[ ptrl ] 

ed2 4 : 

dO 

28 


bne 

* $ed4e 


ed26 : 

85 

be 


sta 

$be 

[ fsblk 

ed28 : 

fO 

24 


beq 

* $ed4e 


ed2a : 

20 

57 

ee 

jsr 

* $ee57 


ed2d : 

20 

51 

ed 

jsr 

* $ed51 


ed30 : 

aO 

00 


Idy 

#$00 


ed32 : 

84 

ab 


sty 

$ab 

[ riprty 

ed34 : 

20 

cc 

fi 

jsr 

* $f7cc 


ed37 : 

45 

ab 


eor 

$ab 

t riprty 

ed39 : 

85 

ab 


sta 

$ab 

[ riprty 

ed3b : 

20 

cl 

ee 

jsr 

* $eecl 


ed3e : 

20 

b7 

ee 

jsr 

* $eeb7 


ed41 : 

90 

fi 


bcc 

* $ed34 


ed43: 

a5 

ab 


Ida 

$ab 

[ riprty 

ed45: 

45 

bd 


eor 

$bd 

[ roprty 

ed4 7 : 

fO 

05 


beq 

* $ed4e 


ed4 9 : 

a9 

20 


Ida 

#$20 


ed4b: 

20 

57 

fi 

jsr 

* $f757 


ed4e : 

4c 

33 

ff 

jmp 

* $ff33 


ed51 : 

a5 

c2 


Ida 

$c2 

[ stah ] 

ed53 : 

85 

ad 


sta 

$ad 

[ sah ] 

ed5 5 : 

a5 

cl 


Ida 

Sci 

[ track 

ed57 : 

85 

ac 


sta 

$ac 

t sai ] 

ed5 9 : 

60 



rts 




ed5a : 

a9 

08 

Ida 

#$08 


ed5c : 

85 

a3 

sta 

$a3 

[ pcntr 

ed5e : 

a9 

00 

Ida 

#$00 


ed60 : 

85 

a4 

sta 

$a4 

[ firt ] 

ed62 : 

85 

a8 

sta 

$a8 

[ bitci 

ed6 4 : 

85 

9b 

sta 

$9b 

È prty ] 

ed6 6 : 

85 

a9 

sta 

$a9 

[ rinone 

ed68 : 

60 


rts 




ed6 9 : 

a5 

bd 


Ida 

$bd [ 

roprty 

ed6b : 

4a 



lsr 

a 


ed6c : 

a9 

60 


Ida 

#$60 


ed6e : 

90 

02 


bcc 

* $ed7 2 


ed7 0 : 

■ a9 

bO 


Ida 

#$b0 


ed7 2 : 

a2 

00 


ldx 

#$00 


ed74 : 

8d 

06 

de 

sta 

* $dc06 


ed7 7 : 

8e 

07 

de 

stx 

* $dc0 7 


ed7a : 

ad 

Od 

de 

Ida 

* $dc0d 


ed7d : 

a9 

19 


Ida 

#$19 


ed7f : 

8d 

Of 

de 

sta 

* $dc0f 


ed82 : 

a5 

01 


Ida 

$01 [ 

r6510 

ed84 : 

49 

08 


eor 

#$08 


ed8 6 : 

85 

01 


sta 

$01 [ 

r6 510 

ed88 : 

29 

08 


and 

#$08 


ed8a : 

60 



rts 




ed8b : 
ed8c : 

38 

66 

b6 

sec 

ror 

$b6 [ 

prp 1 

ed8e : 

30 

3c 

bmi 

* Sedcc 


ed90 : 

a5 

a8 

Ida 

$a8 [ 

bitci 


Contr. se cont. sopra =0.Quindi sai. 

Contr.pres.errore in passo 1 

Se pres. salta 

Contr.n.blocchi da proces=0 

Se pos. vai a IRQ 

Vai a rout. fine nastro I/O 

Copia ind. part. in punt. 

Metti a 0 punt.in Pag.O'per CHECKSUM 

] Metti cont. spost. a 0 
Vai a rout. FETCH 

] Opera su byte in mem.e CHECKSUM e 

) immag. in punt. di CHECKSUM 
Increm.ind. iniziale I/O 
Contr ritrov.ind.di fine 
Se nessun ind.fine cont. 

] Confronta CHECKSUM generato con 
quello letto 

Se = allora OK e continua 

Fissa bit 5' per errore di CHECKSUM 

Esegui reset punt. di sistema 

Vai a rout. IRQ normale 

Copia ind. iniz. I/O vai.HI 

Immag. in A vai. HI 

Copia ind. I/O LO 

Immag. in A vai. LO 


Iniz. trasfer.contatore per 8 bits 
in Pag. 0 

Azzera byte HI dei 2 byte 
Metti cont. in Pag. 0 per uscita a $00 
Azzera flag lett. errori nastro 
Inizializ. parità' per nastro 
Inizialìz. flag zero 


Metti in A bit per uscita da Pag.O 

Idem ma in Carry 

Fissa temp. per bit 0 

Fissa temp. per uscita 

Fissa temp. per bit 1 

Metti vai. LO per temp. byte HI 

Temp.B di CIA1 Byte LO 

Temp.B di CIA1 Byte HI 

Es. clear su flag di interrupt 

Carica timer B e inizia 

Car. reg. di contr. CIA 

Invers. vai. per uscita bit 

Invers. su porta process. 

Riportati su porta prec. ancora 
Salva att. segnale 


Fissa Carry per rotaz. 

Esegui q.s. 

Ritorno da interrupt 

Contr.scritt. byte di impulso 
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ed92 

dO 

12 


bne 

* Seda6 


ed94 

a9 

10 


Ida 

#$10 


ed96 

a2 

01 


ldx 

#$01 


ed98 

20 

74 

ed 

jsr 

* $ed7 4 


ed9b 

dO 

2 f 


bne 

* $edcc 


ed9d 

e6 

a8 


ine 

$a8 [ 

bitei ] 

ed9f 

a5 

b6 


Ida 

$b6 [ 

Ptp ] 

edal 

10 

29 


bpl 

* $edcc 


eda3 

4c 

lb 

ee 

jmp 

* $eelb 


eda6 

a5 

a9 


Ida 

$a9 [ 

rinone 

eda8 

dO 

09 


bne 

* $edb3 


edaa 

20 

70 

ed 

jsr 

* $ed70 


edad 

dO 

ld 


bne 

* $edcc 


edaf 

e6 

a9 


ine 

$a9 [ 

rinone 

edbl 

dO 

19 


bne 

* $edcc 


edb3 

20 

69 

ed 

jsr 

* $ed69 


edb6 

dO 

14 


bne 

* Sedcc 


edb8 

a5 

a4 


Ida 

$a4 [ 

firt ] 

edba 

49 

01 


eor 

#$01 


edbc 

85 

a4 


sta 

$a4 [ 

firt ] 

edbe 

fO 

Of 


beq 

* $edcf 


edcO 

a5 

bd 


Ida 

$bd [ 

roprty 

edc2 

49 

01 


eor 

#$01 


edc4 

85 

bd 


sta 

$bd [ 

roprty 

edc6 

29 

01 


and 

#$01 


edc8 

45 

9b 


eor 

$9b [ 

prty ] 

edea 

85 

9b 


sta 

$9b [ 

prty ] 

edcc 

4c 

33 

ff 

jmp 

* $ff33 


edef 

46 

bd 


lsr 

$bd [ 

roprty 

eddl 

c6 

a3 


dee 

$a3 [ 

pcntr 

edd3 

a5 

a3 


Ida 

$a3 [ 

pcntr 

edd5 

fO 

3b 


bec; 

* $eel2 


edd7 

10 

f 3 


bpl 

* $edcc 


edd9 

20 

5a 

ed 

jsr 

* $ed5a 


edde 

58 



eli 



eddd 

a5 

a5 


Ida 

$a5 [ 

cntdn 

eddf 

fO 

12 


beq 

* $edf3 


edel 

a2 

00 


ldx 

#$00 


ede3 

86 

c5 


stx 

$c5 [ 

data ) 

ede5 

c6 

a5 


dee 

$a5 [ 

cntdn 

ede7 

a6 

be 


ldx 

$be [ 

fsblk 

ede9 

eO 

02 


cpx 

#$02 


edeb 

dO 

02 


bne 

* $edef 


eded 

09 

80 


ora 

#$80 


edef 

85 

bd 


sta 

$bd t 

roprty 

edf 1 

dO 

d9 


bne 

* $edcc 


edf 3 

20 

b7 

ee 

jsr 

* $eeb7 


edf 6 

90 

Oa 


bcc 

* $ee02 


edf 8 

dO 

91 


bne 

* $ed8b 


edf a 

e6 

ad 


ine 

$ad [ 

sah ] 

edf c 

a5 

c5 


Ida 

$c5 [ 

data ] 

edf e 

85 

bd 


sta 

$bd [ 

roprty 

eeOO 

bO 

ca 


bes 

* $edcc 


ee02 

aO 

00 


ldy 

#$00 


ee04 

20 

cc 

f 7 

jsr 

* $f 7cc 


ee07 

85 

bd 


sta 

$bd [ 

roprty 

ee09 

45 

c5 


eor 

$c5 [ 

data ] 

eeOb 

85 

c5 


sta 

$c5 [ 

data ] 

eeOd 

20 

cl 

ee 

jsr 

* $eecl 


eelO 

dO 

ba 


bne 

* $edcc 



Se contr. pos. scrivi byte 
Metti in A vai. LO di byte freq. 

Metti in X vai. HI byte freq. 

Scrivi su nastro byte imp. 

Se e ' la prima onda mez.vai a IRQ 
Fissa punt. per impul.scritto 
Contr. punt. blocco scrittura 
Se contr.pos.a IRQ 
Se blocco termin. cont. scritt. 

Contr.per scritt. impul. lungo 
Se pos. vai a impul.lungo 
Scrivi impul.prec.su nastro 
Controllo onda pos. a IRQ 
Fissa punt. per scrittura 
Vai a IRQ 

Scrivi un bit su nastro 
A IRQ 

Inverti punt.bit imp. in pag.O 
esegui 

e salva di nuovo 

Se 0 scrivi entrambi gli impulsi 
Es.invers. in pag.O del bit 0 
sposta immagazz. ed esegui op. 

Salva ancora su A 

Cane, bit att.ed esegui un AND con 
bit di parità' del Byte 
Immaga, nel flag di parità' 

Vai a IRQ 

Es. spost. su bit e decrem. di 1 
il cont. in pag.O dei bit 
Controlla se rii. segn di fine 
Se pos. genera bit di parità' 

Se neg. vai a IRQ 
Contatore bit per uscita seriale 
Abilita tutti gli interrupt 
Contr. scritt.bytes di sincron. 

Se sono stati scritti salta 

Metti a 0 immag. di CHECKSUM per esec 

lettura buffer 

Decr.cont. sincron. di 1 

Contr. se il primo blocco e' già' 

stato letto 

Se neg. salta 

Bit 7 in byte di sincronizz. 
e in pag. 0 con spost. bit prer immag. 
Vai a IRQ 

Contr.rilev indir, di fine 

Se non trovato cont. a scrivere 

Fissa punt. per blocco scritto 

Incr. di 1 att. ind. byte 

Carica buffer di CHECKSUM da pag.O 

Immag. q.s. in zona immag. bit 

Vai a normale IRQ 

Metti a 0 punt. spostamento 

Vai a rout. FETCH 

Imma. caratt. in zona immag. bit 

Esegui EOR con CHEKSUM immag. in prec. 

e immag. ancora 

Incr. ind. di partenza I/O 

Vai a normale IRQ 
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eel2 : 

a5 

9b 


Ida 

$9b [ 

prty ] 

eel4 : 

49 

01 


eor 

#$01 


eel 6 : 

85 

bd 


sta 

$bd [ 

roprty ] 

eel 8 : 

4c 

33 

ff 

jmp 

* $ff33 


eelb : 

c6 

be 


dee 

$be ( 

fsblk ] 

eeld : 

dO 

03 


bne 

* $ee22 


eelf : 

20 

bO 

ee 

jsr 

* $eeb0 


ee22 : 

a9 

50 


Ida 

#$50 


ee24 : 

85 

al 


sta 

$a7 [ 

shcnl ] 

ee26 : 

a2 

08 


ldx 

#$08 


ee28 : 

78 



sei 



ee29 : 

20 

9b 

ee 

jsr 

* $ee9b 


ee2c : 

dO 

ea 


bne 

* $eel8 


ee2e : 

a9 

78 


Ida 

#$78 


ee30 : 

20 

72 

ed 

jsr 

* $ed7 2 


ee33 : 

dO 

e3 


bne 

* $eel8 


ee35 : 

c6 

al 


dee 

$a7 [ 

shcnl ] 

ee37 : 

dO 

df 


bne 

* $eel8 


ee39 : 

20 

5a 

ed 

jsr 

* $ed5a 


ee3c : 

c6 

ab 


dee 

$ab [ 

rìprty ] 

ee3e : 

10 

d8 


bpl 

* $eel8 


ee40 : 

a2 

0a 


ldx 

#$0a 


ee42 : 

20 

9b 

ee 

jsr 

* $ee9b 


ee45: 

58 



eli 



ee46 : 

e6 

ab 


ine 

$ab [ 

riprty ] 

ee48 : 

a5 

be 


Ida 

$be [ 

fsblk ] 

ee4a : 

fO 

49 


beq 

* $ee95 


ee4c : 

20 

51 

ed 

jsr 

* $ed51 


ee4f : 

a2 

09 


ldx 

#$09 


ee51 : 

86 

a5 


stx 

$a5 [ 

cntdn ] 

ee53 : 

86 

b6 


stx 

$b6 [ 

Ptp ] 

ee55 : 

dO 

82 


bne 

* $edd9 


ee57 : 

08 



php 



ee58 : 

78 



sei 



ee59 : 

ad 

11 

d0 

Ida 

* $d011 


ee5c : 

Od 

39 

0a 

ora 

$0a39 


ee5f : 

29 

7 f 


and 

#$7f 


ee61 : 

8d 

11 

d0 

sta 

* $d011 


ee64 : 

2c 

3a 

0a 

bit 

$0a3a 


ee67 : 

30 

16 


bmi 

* $ee7 f 


ee6 9 : 

2c 

37 

Oa 

bit 

$0a37 


ee6c : 

10 

11 


bpl 

* $ee7 f 


ee6e : 

ad 

38 

Oa 

Ida 

$0a38 


ee71 : 

8d 

15 

d0 

sta 

* $d015 


ee74 : 

ad 

37 

0a 

Ida 

$0a3 7 


ee7 7 : 

8d 

30 

d0 

sta 

* $d030 


ee7a : 

a9 

00 


Ida 

#$00 


ee7c : 

8d 

37 

0a 

sta 

$0a37 


ee7f : 

20 

bO 

ee 

jsr 

* $eeb0 


ee8 2 : 

20 

b8 

el 

jsr 

* $elb8 


ee85 : 

ad 

0a 

0a 

Ida 

$0a0a 


ee88: 

f 0 

09 


beq 

* $ee93 


ee8a : 

8d 

15 

03 

sta 

$0315 


ee8d : 

ad 

09 

0a 

Ida 

$0a09 


ee90 : 

8d 

14 

03 

sta 

$0314 


ee9 3 : 

28 



plp 



ee94 : 

60 



rts 



ee9 5 : 

20 

57 

ee 

jsr 

* $ee57 



Inverti bit di parità' del byte 
di pag. 0 e copialo nell' A 

Vai a IRQ 

Contr. per scritt. tutti i bits 
Se contr. neg. salta 
Disattiva mot. cassetta 
Iniz. contatore in pag. 0 per 
imp. piu' corto 

Esegui'spost. per IRQ 1 (scrittura! 
Disabilita tutti gli intertupt 
Fissa i vettori di IRQ 
Vai a normale IRQ 

Metti in A codice per imp. HEADER 
Scrivi q.s 

Se e' primo mezzo segn. vai a IRQ 

Decr. cont. di HEADER di 1 

Se non rii. fine vai a IRQ 

Fissa cont. bit per uscita seriale 

Decr.durata imp.corto 

Se non e' ine.segn di fine vai a IRQ 

Spostam. per IRQ 2 

Fissa vettore di IRQ 

Abilita tutti gli interrupt 

Incr. lungh. impulso 

Controlla per scritt. tutti blocchi 

Se pos. salta 

Copia ind. di fine. I/O 

Esegui un reset sul cont. di pag.O 

per sincronizz. e resetta punt. 

blocchi scritti 

Salata a ind. 

Salva stato del proc. su Stack 
Disabilita tutti gli interrupt 
Metti in A cont.reg.contr. VIC 
Es. OR con punt. tempor. VDC 
Disatt. schermo 
Scrivi valore in reg. VIC 
Contr. immag. IRQ 
Fissa bit 7 e salta a ind. 

Contr. immag. freq. clock 
Se bit 7 a 0 nessun aggiornam. 

Carica status per sprites 

Fissa reg. visual, sprites 

Metti in A freq.clock salvato in prec. 

e riporta il sistema al vai. prec. 

Metti 0 in A per es.clear di 

frequen. clock di sistema 

Disattiva motore 

Metti temporiz. e i 2 CIA in modo sta 
Contr. se vett.di interrupt e' stand. 
Se positivo esci 

Metti a modo stand.vett. HI di IRQ 
Carica ind. LO di IRQ 
Metti in modo stand.vett.LO di IRQ 
Riprist. status proec. 


Termine operaz.di registr. 
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ee98 i 

4c 

33 

ff 

jmp 

* $f f 3 3 

ee9b i 

bd 

a0 

ee 

Ida 

* $eea0,x 

ee9e i 

8d 

14 

03 

sta 

$0314 

eeal i 

bd 

al 

ee 

Ida 

* $eeal,x 

eea4 i 

8d 

15 

03 

sta 

$0315 

eea7 1 

60 



rts 


TAVOLA VETTORI 

DI IRQ 

eea 81 

2e 

ee 



($ee2e) 

•eeaa : 

90 

ed 



($ed90 ) 

eeac : 

65 

fa 



<$fa65) 

eeae : 

eb 

ea 



($eaeb) 


eebO i 
eeb2 i 
eeb4 i 
eeb 61 

a5 

09 

85 

60 

01 

20 

01 

Ida 

ora 

sta 

rts 

$01 

#$20 

$01 

[ r6510 ] 

[ r6510 ] 

eeb7 1 

38 


sec 



eeb8 i 

a5 

ac 

Ida 

$ac 

[ sai ] 

eeba i 

e5 

ae 

sbc 

$ae 

[ eal ] 

eebc i 

a5 

ad 

Ida 

$ad 

[ sah ] 

eebe i 

e5 

af 

sbc 

$af 

[ eah ] 

eecO i 

60 


rts 



eecl i 

e6 

ac 

ine 

$ac 

[ sai ] 

eec3 i 

d0 

02 

bne 

* $eec7 

eec5 i 

e6 

ad 

ine 

$ad 

[ sah ] 

eec7 i 

60 


rts 



eec8 i 

08 


php 



eec9 i 

68 


pia 



eeca: 

29 

ef 

and 

#$ef 


eecc: 

48 


pha 



eecd i 

4c 

17 ff jmp 

* $ff17 

eedO i 

a5 

01 

Ida 

$01 

[ r6510 ] 

eed2 i 

29 

10 

and 

#$10 


eed4 i 

fO 

0a 

beq 

* $eee0 

eed6 i 

a0 

00 

ldy 

#$00 


eed8 i 

84 

cO 

sty 

$c0 

[ casi ] 

eeda i 

a5 

01 

Ida 

$01 

[ r6510 ] 

eedci 

09 

20 

ora 

#$20 


eede i 

dO 

08 

bne 

* $eee8 

eeeO i 

a5 

cO 

Ida 

$c0 

[ casi ] 

eee2 i 

dO 

06 

bne 

* $eeea 

eee4 i 

a5 

01 

Ida 

$01 

[ r6510 ] 

eee6 i 

29 

df 

and 

#$df 


eee8 i 

85 

01 

sta 

$01 

[ r6 510 ] 

eeea : 

60 


rts 



ROUTINE KERNAL GETIN 


eeebi 

a5 

99 

Ida 

$99 

[ dfltn ] 

eeed i 

d0 

0a 

bne 

* $eef9 

eeef i 

a5 

d0 

Ida 

$d0 

[ ndx ] 

eef 1 1 

05 

di 

ora 

$dl 

[ kyndx ] 

eef 3 i 

fO 

Of 

beq 

* $ef04 

eef 5 i 

78 


sei 




Vai a IRQ. Vengono fiss.i vett.IRQ 
IRQ indirizzo LO 

Copia q.s in vett.di sistema IRQ 
IRQ Indirizzo HI 

Copia q.s.in vett.di sistema IRQ 


IRQ 1 iscrivi HEADER su nastro 
IRQ 2 iscrivi BUFFER su nastro 
IRQ per lettura tastiera 
IRQ per lettura da nastro 


Car. A per disab. motore 
Fissa bit 5 

Disabil. motore casetta 


Predisp. carry per sottraz. 
Metti in A ind.part.LO di I/O 
Sottrai ind. finale corrisp 
Metti in A ind.part.HI di I/o 
Sottrai ind. finale corrisp 


Incr.di 1 ind.part.LO di I/O 

Se per vai.LO nessun Overflow vai ind. 

Incr.c.s.ma per vai. HI 


Salva su stack status del proc. 

Copia q.s. in A 

Esegui un clear sul flag di break 

Reins. status su Stack 

Vai a KERNAL IRQ 

Contr. tasto prem. di cassetta 

Esegui un AND per tasto prem. 

Se nessun tasto prem. esci 
Indicat. cass. 

Eseg.reset flag nastro (OFF)in pag.O 
Metti in A reg.dati porta process. 
Fissa bit per disab. motore 
Es. salto incond. 

Contr.flag mot.nastro in pag.O 
Se mot. attivo vai ad ind. 

Metti in A reg.dati porta process. 
Es.clear del bit per abilit. motore 
Riscr. in porta del process. 


Carica A con att.perif. in ingresso 
Se non e' la tast. continua 
Metti in A n. car. in buffer tastiera 
Eseg. OR con punt. tasto funz. 

Se nessun carattere esci 
Disabilita tutti gli interrupt 
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eef 6 : 

4c 

06 

cO 

jmp 

* $c006 


eef 9 : 

c9 

02 


emp 

#$02 


eefb: 

dO 

18 


bne 

* $ef15 


eef d : 

84 

97 


sty 

$97 [ 

xsav ] 

eef f : 

20 

ce 

e7 

jsr 

* $e7ce 


ef 02 : 

a4 

97 


ldy 

$97 [ 

xsav ] 

ef 04 : 

18 



eie 



ef 05 : 

60 



rts 



ROUTINE KERNAL 

BASIN 


ef 06 : 

a5 

99 


Ida 

$99 [ 

dfltn ] 

ef 0 8 : 

dO 

Ob 


bne 

* $ef15 


ef Oa : 

a5 

ec 


Ida 

$ec ■ [ 

pntr ] 

ef Oc: 

85 

e9 


sta 

$e9 [ 

lstp ] 

ef Oe : 

a5 

eb 


Ida 

$eb [ 

tblx ] 

ef 10: 

85 

e8 


sta 

$e8 [ 

lsxp ] 

ef 12 : 

4c 

09 

cO 

jmp 

* $c009 


ef 15: 

c9 

03 


emp 

#$03 


ef 17 : 

dO 

09 


bne 

* $ef22 


ef 19 : 

85 

d6 


sta 

$d6 [ 

ersm ] 

ef Ib: 

a5 

e7 


Ida 

$e7 [ 

scrt ] 

ef ld: 

85 

ea 


sta 

$ea [ 

indx ] 

eflf : 

4c 

09 

cO 

jmp 

* $c009 


ef 22 : 

b0 

38 


bes 

* $ef5c 


ef 24 : 

c9 

02 


emp 

#$02 


ef 26 : 

fO 

3f 


beq 

* $ef67 


é f 2 8 : 

86 

97 


stx 

$97 [ 

xsav ] 

ef 2a : 

20 

48 

ef 

jsr 

* $ef48 


ef 2d : 

bO 

16 


bes 

* $ef45 


ef 2f : 

48 



pha 



ef 30 : 

20 

48 

ef 

jsr 

* $ef48 


ef 33: 

bO 

Od 


bes 

* $ef42 


ef 35: 

dO 

05 


bne 

* $ef3c 


ef 37 : 

a9 

40 


Ida 

#$40 


e f 3 9 : 

20 

57 

n 

jsr 

* $f757 


ef 3c : 

c6 

a6 


dee 

$a6 [ 

bufpt ] 

ef 3e : 

a6 

97 


ldx 

$97 [ 

xsav ] 

ef 40 : 

68 



pia 



ef 41 : 

60 



rts 



ef 4 2 : 

aa 



tax 



ef 4 3 : 

68 



pia 



ef 44 : 

8a 



txa 



ef 45 : 

a6 

97 


ldx 

$97 [ 

xsav ] 

ef 47 : 

60 



rts 



ef 48 : 

20 

be 

e9 

jsr 

* $e9be 


ef 4b : 

dO 

0b 


bne 

* $ef58 


ef 4d : 

20 

f 2 

e9 

jsr 

* $e9 f2 


ef 5 0 : 

bO 

09 


bes 

* $ef5b 


ef 52 : 

a9 

00 


Ida 

#$00 


ef 54 : 

85 

a6 


sta 

$a6 [ 

bufpt ] 

ef 56 : 

fO 

f0 


beq 

* $ef48 


ef 58 : 

bl 

b2 


Ida 

($b2),y[ 

tapel ] 

ef 5a : 

18 



eie 



ef 5b: 

60 



rts 




Ida $90 [ status ] 

bne * $ef63 


Prendi un car. da buffer di tastiera 

Contr. se RS-232 e' perif di input 

Se non e ' RS-232 vai a BASIN 

Immag. att. cont. di reg. Y 

Rout. GETIN di RS-232 

Riprist. cont. di Y 

Clear di carry come marker 


Metti in A att.perif. in input 

Se non e ' la tastiera continua 

Metti att.colo.curs. in A 

Immag. in Pag.0 inizio col.input 

Metti att.linea cursore in A 

Immag. in pag.0 inizio linea input 

Prel. carat. da schermo 

Contr.se perif in input e' lo scher. 

Se non e' lo schermo continua 

Immag. in pag.O punt. per input(get) 

Metti in A bordo destro finestra 

Immag.in pag.O q.s.per fine linea in. 

Prel.car. da schermo 

Contr.se n.perif.>3.prel.car.da bus 

Contr.se n.perif in input=2 

Se contr. pos.prel.cara.da RS-232 

Salva att. cont. di X 

Leggi un car. da nastro 

Esci da rout. lett. cassetta 

Salva A su Stack 

Leggi car. da cassetta 

Se rilev. errore salta 

Contr.per ult.caratt.letto da nastro 

Metti EOF in A 

Fissa di conseg. il b. di STATUS 
Decr.di 1 punt.buffer nastro 
Riprist. cont.reg. X 
Ripris. A con dati da Stack 


Mettti in X n.errore 
Prel. caratt.da Stack 
Metti n.err. in A 
Riprist. cont. reg. X 


Incrementa punt.buffer nastro e poi 

leggi cara, da nastro 

Leggi pross. blocco da cassetta 

Contr. tasto premuto 

Carica A con $00 

Immag. in A punt.buffer nastro 

Vai al pross.caratt. 

Leggi cara, da buffer 

Clear di carry per indie, di 0K 


Metti in A STATUS del sistema 
Contr. se q.s. e' ok 


ef5c: a5 90 
ef5e: dO 03 
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ef 6 0 : 
ef 63 : 
ef 65 : 
ef 66 : 

4c 

a9 

18 

60 

3e 

Od 

e4 

jmp 

Ida 

eie 

rts 

* $e43e 
#$0d 


ef 67 : 

20 

fd 

ee 

jsr 

* $eefd 


ef 6a: 

bO 

f 9 


bes 

* $ef65 


ef 6c: 

c9 

00 


emp 

#$00 


ef 6e : 

dO 

f 6 


bne 

* $ef66 


ef 7 0 : 

ad 

14 

Oa 

Ida 

$0al 4 


ef 73 : 

29 

60 


and 

#$60 


ef 75: 

dO 

ec 


bne 

* $ef63 


etili 

fO 

ee 


beq 

* $ef67 


ef 79: 

48 



pha 



ef 7a : 

a5 

9a 


Ida 

$9a [ 

dfIto ] 

ef 7c: 

c9 

03 


emp 

#$03 


ef 7e: 

dO 

04 


bne 

* $ef84 


ef 80: 

68 



pia 



ef 81 : 

4c 

Oc 

cO 

jmp 

* $c00c 


ef 84 : 

90 

04 


bcc 

* $ef8a 


ef 86 : 

68 



pia 



ef 87 : 

4c 

03 

e5 

jmp 

* $e503 


ef 8a : 

4a 



lsr 

a 


ef 8b : 

68 



pia 



ef 8c : 

85 

9e 


sta 

$9e [ 

ptrl ] 

ef 8e: 

8a 



txa 



ef 8f : 

48 



pha 



ef 90 : 

98 



tya 



ef 91 : 

48 



pha 



ef 9 2 : 

90 

23 


bcc 

* $efb7 


e f 9 4 : 

20 

be 

e9 

jsr 

* $e9be 


ef 97 : 

dO 

Oe 


bne 

* $efa7 


ef 99 : 

20 

15 

ea 

jsr 

* $eal5 


ef 9c: 

bO 

0e 


bes 

* $efac 


ef 9e : 

a9 

02 


Ida 

#$02 


ef aO : 

aO 

00 


ldy 

#$00 


ef a2 : 

91 

b2 


sta 

($b2),y 

[ tapel ] 

ef a4 : 

c8 



iny 



ef a5 : 

84 

a6 


sty 

$a6 

[ bufpt ] 

ef a7 : 

a5 

9e 


Ida 

$9e 

[ ptrl ] 

ef a9 : 

91 

b2 


sta 

($b2),y 

[ tapel ] 

ef ab : 

18 



eie 



ef ac : 

68 



pia 



ef ad : 

a8 



tay 



ef ae : 

68 



pia 



ef af : 

aa 



tax 



ef bO : 

a5 

9e 


Ida 

$9e 

[ ptrl ] 

ef b2 : 

90 

02 


bcc 

* $efb6 


efb4 : 

a9 

00 


Ida 

#$00 


ef b6 : 

60 



rts 



ROUTINE KERNAL 

OPEN 



ef b7 : 

20 

5f 

e7 

jsr 

* $e75f 


ef ba : 

4 c 

ab 

ef 

jmp 

* $efab 


ef bd : 

a6 

b8 


ldx 

$b8 

[ la ] 

ef bf : 

20 

02 

f 2 

jsr 

* $f202 


ef c2 : 

fO 

2 f 


beq 

* $eff3 


ef c4 : 

a6 

98 


ldx 

$98 

[ ldtnd ] 

ef c6 : 

eO 

0a 


cpx 

#$0a 



Vai a Rout.ACPTR 

Metti in A cod. per CR 

Clear di carry per indie, di OK 


Leggi un byte da RS-232 

Se rii. errore esci 

Contr. se car. letto e' byte 0 

Se contr.neg. OK e esci 

Metti in A STATUS RS-232 

Contr. pres. DSR 

Se pos. ripo. codice CR 

Se neg. leggi di nuovo 

Immag. car. in uscita 

Metti in A att. perif in uscita 

Contr. se q.s. e' 3(per schermo) 

Se neg.vai a uscita schermo 

Metti il car. in uscita nella rout. 

di uscita car.di schermo 

Uscita su RS-232 o cassetta 

Prel. car. da Stack 

Vai a BSOUT per uscita seriale 

Contr. se RS-232 o cassetta 

Prel. car. da Stack 

Immag. q.s. in pag. 0 

Metti in A att. cont. di X 

Metti q.s. su Stack per mezzo di A 

Trasf. su Stack att. contenuto di Y 

per mezzo di A 

Vai a uscita RS-232 

Incr. punt. buffer nastro 

Contr. se buffer non pieno e metti.car 

Scrivi cont. buffer su nastro 

Contr. per STOP premuto 

Fissa byte di contr.per blocco dati 

Sposta lett. su buffer di nastro 

Scrivi byte di controllo su buffer 

Incr.spostam. in buffer nastro e 

immag. in Y di pag. 0 

Prel. car. uscita da pag. 0 

Scrivilo in buffer di uscita 

Clear di carry per indie, di OK 

Riprist. vai. da Stack 

Ripristina cont. di Y 

Ripristina, prel. da Stack i cont. 

di X 

Metti car. in uscita 
Se tutto e' OK vai ad ind. 

Fissa flag per tasto STOP premuto 


Scrivi car. in buffer RS-232 
Contr. status Stack e return 
Metti n. di file logico in X 
Cerca LFN in tavola relativa 
Se rilev. LFN uscita errore 
Metti in X n. di files aperti 
Contr.che non piu' di 10 files aper. 
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ef c8 : 

bO 

26 


bes 

* $eff0 


efca: 

e6 

98 


ine 

$98 

ldtnd 

ef cc : 

a5 

b8 


Ida 

$b8 

la ] 

ef ce: 

9d 

62 

03 

sta 

$0362,x 


ef di : 

a5 

b9 


Ida 

$b9 

sa ] 

efd3 : 

09 

60 


ora 

#$60 


ef d5 : 

85 

b9 


sta 

$b9 

sa ] 

efd7 : 

9d 

76 

03 

sta 

$0376,x 


ef da : 

a5 

ba 


Ida 

$ba 

fa ] 

ef de : 

9d 

6c 

03 

sta 

$036c,x 


efdf : 

fO 

Od 


beq 

* $efee 


ef el : 

c9 

02 


emp 

#$02 


ef e3 : 

fO 

5b 


beq 

* $f040 


ef e5 : 

90 

Of 


bcc 

* $eff6 


ef e7 : 

c9 

03 


emp 

#$03 


ef e9 : 

fO 

03 


beq 

* $efee 


ef eb : 

20 

cb 

fO 

jsr 

* $f Ocb 


ef ee : 

18 



clc 



efef : 

60 



rts 




effO: 

4c 

le 

f 6 

jmp 

* 

$f 67c 

ef f 3 : 

4c 

1 f 

f 6 

jmp 

★ 

$f 67f 

ef f 6 : 

20 

80 

e9 

jsr 

* 

$e980 

eff 9: 

bO 

03 


bes 

* 

$ef f e 

ef fb : 

4c 

94 

f 6 

jmp 

* 

$f 694 

effe: 

a5 

b9 


Ida 

$b9 


Se piu' di 10 errore 

Incr. di 1 n.files aperti 

Metti in A n. di file logico 

Immag. in A LFN 

Metti in A ind. secondario 

Fissa per PRINT, INPUT e GET 

Metti in A ancora 

Inserisci indir, sec in tavola relat 
Metti in A indir.perif. 

Metti GA in tavola relativa 

Controllo se tastiera 

Contr. se RS-232 e' sei. come per. 

Se pos. vai a RS-232 

Contr. per vai. min. di 2.=OPEN nastro 
Contr. se schermo selez.come perif. 

Se pos. vai ad ind. 

Apertura file su bus seriale 
Clear di carry per tutto OK 


Errore di I/O n.l.N. eccessivo filese 
Errore di I/O n.2.File già' aperto 
Vai a ind.iniz.buffer nastro 
Se carry a l,ind. valido 
Errore di I/O n.9.N.perif.illegale 
Metti in A ind. second. 
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f 000 : 

29 

0f 


and 

#$0f 


f 002 : 

dO 

lf 


bne 

* $f023 


f 004 : 

20 

c8 

e9 

jsr 

* $e9c8 


f 007 : 

bO 

36 


bes 

* $f03f 


f 009 : 

20 

Of 

f 5 

jsr 

* $f50f 


fOOc: 

a5 

b7 


Ida 

$b7 [ 

fnlen ] 

fOOe: 

fO 

0a 


beq 

* $f Ola 


f 010 : 

20 

9a 

e9 

jsr 

* $e99a 


f 01 3 : 

90 

18 


bcc 

* $f02d 


f 015 : 

fO 

28 


beq 

* $f03f 


f 017 : 

4 c 

85 

f 6 

jmp 

* $f685 


fOla: 

20 

dO 

e8 

jsr 

* $e8d0 


f Old : 

90 

0e 


bcc 

* $f02d 


fOlf : 

fO 

le 


beq 

* $f03f 


f 021 : 

bO 

f 4 


bes 

* $f017 


f 023 : 

20 

e9 

e9 

jsr 

* $e9e9 


f 026 : 

bO 

17 


bes 

* $£03f 


f 028 : 

a9 

04 


Ida 

#$04 


f 0 2a : 

20 

19 

e9 

jsr 

* $e919 


f 02d : 

a9 

bf 


Ida 

#$bf 


f 02f : 

a4 

b9 


ldy 

$b9 [ 

sa ] 

f 031 : 

cO 

60 


cpy 

#$60 


f 0 3 3 : 

f0 

07 


beq 

* $f03c 


f 035 : 

aO 

00 


ldy 

#$00 


f 037 : 

a9 

02 


Ida 

#$02 


f 03 9 : 

91 

b2 


sta 

($b2),y [ 

tapel ] 

f 03b : 

98 



tya 



f 0 3c : 

85 

a6 


sta 

$a6 [ 

bufpt ] 

f 03e : 

18 



eie 



f 03f : 

60 



rts 



f 040 : 

20 

b0 

f0 

jsr 

* $f ObO 


f 043 : 

8c 

14 

Oa 

sty 

$0al 4 


f 046 : 

c4 

b7 


cpy 

$b7 [ 

fnlen ] 

f 048 : 

f0 

Ob 


beq 

* $f055 


f 0 4a : 

20 

ae 

f 7 

jsr 

* $f 7ae 


f 04d : 

99 

10 

0a 

sta 

$0al0,y 


f 050 : 

c8 



iny 



f 051 : 

cO 

04 


cpy 

#$04 


f 0 5 3 : 

d0 

fi 


bne 

* $f046 


f 055 : 

20 

8e 

e6 

jsr 

* $e68e 


f 058 : 

8e 

15 

Oa 

stx 

$ Oal 5 


f 05b : 

ad 

10 

Oa 

Ida 

$0al0 


f 0 5e : 

29 

Of 


and 

#$0f 


f 060 : 

fO 

le 


beq 

* $f07e 


f 0 6 2 : 

0a 



asl 

a 


f 063 : 

aa 



tax 



f 064 : 

ad 

03 

Oa 

Ida 

$0a03 


f 067 : 

d0 

09 


bne 

* $f072 


f 069 : 

bc 

4 f 

e8 

ldy 

* $e84f,x 


f 06c : 

bd 

4e 

e8 

Ida 

* $e84e,x 


f 0 6 f : 

4c 

78 

fO 

jmp 

* $f078 


f 072 : 

bc 

63 

e8 

ldy 

* $e86 3 , x 


f 0 7 5 : 

bd 

62 

e8 

Ida 

* $e862,x 


f 078 : 

8c 

13 

Oa 

sty 

$0al 3 


f 0 7b : 

8d 

12 

0a 

sta 

$0al 2 


f 07e: 

ad 

12 

Oa 

Ida 

$0al2 


f 081 : 

Oa 



as 1 

a 



Maschera il Nibble alto (4-7) 

Se non zero attesa Record/Play 
Attesa per tasto su registratore 
Errore se Carry=l, RTS 
Messaggio 'SEARCHING FOR ' 

Lunghezza del nome file 
Salta se nessun nome 

Cerca il nome nell'header del nastro 
Continua se non trovato 
Ritorno se il Carry e' a 1 
Errore di I/O n.4 (File not found) 
Cerca la prossima testata sul nastro 
Continua se trovata 
* * * 

* * * 

Attesa Per tasti Record/Play 
Tasto stop premuto, fine. 

Contr. data-code della testata in Acc 
Scrive testata nel nastro 
Punt. fine buffer in Acc. 

Carica il reg. Y con 1 'ind. secondar 
Codice SA per Print,Input o get ? 

Se si, setta Punt. e ritorna 

Byte di controllo per blocco dati. 
Scrive il Byte nel Buff. di cassetta 
Trasferisce il Reg. Y in Acc. 

Setta il Punt. in pag. zero del Buff 
Ripulisce il carry per OK 
Ritorno dalla Subroutine 

Apertura Dell' RS232 

Resetta i CIA 

Resetta II Byte di stato in Pag. Zero 
Confronta con la lungh. del nome file 
Se uguale, calcola i data bits 
Preleva 1 Byte per il Registro RS232 
Inizializza il Registro di Controllo 
Il Registro di Comando e 
La velocita (Baud rate) 

Ciclo per settare tutti i 4 valori 

Calcola il numero dei datA bits 

Immagazzina il num. dei bits da inviar 

Carica il Registro di Controllo RS232 

Isola i bits del Baud Rate 

Determina il valore 

Moltiplica per 2 

Copia il contenuto nel reg. X 

Carica il puntatore PAL/NTSC 

Se non NTSC (USA), esce 

Costante di tempo per NTSC (alto) 

Costante di tempo per NTSC (basso) 

Salva costanti NTSC 

Costante di tempo per PAL (alto) 

Costante di tempo per PAL (basso) 

Salva la parte alta del Baud rate 
Salva la parte bassa del Baud rate 
Ricarica la parte bassa del Baud rate 
Moltiplica per 2 
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f 082 : 

aa 



tax 


f 083 : 

ad 

13 

0a 

Ida 

$0al 3 

f086: 

2a 



rol 

a 

f 087 : 

a8 



tay 


f 088 : 

8a 



txa 


f 089 : 

69 

c8 


adc 

#$c8 

f 08b : 

8d 

16 

Oa 

sta 

$0al 6 

f08e: 

98 



tya 


f08f : 

69 

00 


adc 

#$00 

f 091 : 

8d 

17 

Oa 

sta 

$0al7 

f 094 : 

ad 

11 

Oa 

Ida 

SOall 

f 097 : 

4a 



lsr 

a 

f 098 : 

90 

09 


bcc 

* $f0a3 

f 09a : 

ad 

01 

dd 

Ida 

* $dd01 

f 09d : 

Oa 



asl 

a 

f 09e : 

bO 

03 


bcs 

* $f0a3 

fOaO: 

20 

55 

e7 

jsr 

* $e755 

f 0a3 : 

ad 

18 

Oa 

Ida 

$0al8 

f 0a6 : 

8d 

19 

Oa 

sta 

$0al9 

f 0a9 : 

ad 

lb 

Oa 

Ida 

$0alb 

f Oac: 

8d 

la 

Oa 

sta 

$0ala 

fOaf : 

60 



rts 



fObO: 

a9 

7 f 


Ida 

#$7f 

f 0b2 : 

8d 

Od 

dd 

sta 

* $dd0d 

f 0b5 : 

a9 

06 


Ida 

#$06 

f 0b7 : 

8d 

03 

dd 

sta 

* $dd03 

fOba: 

8d 

01 

dd 

sta 

* $dd01 

f Obd: 

a9 

04 


Ida 

#$04 

fObf : 

Od 

00 

dd 

ora 

* $dd0 0 

f 0c2 : 

8d 

00 

dd 

sta 

* $dd00 

f 0c5 : 

aO 

00 


ldy 

#$00 

f 0c7 : 

8c 

Of 

Oa 

sty 

$0a0f 

fOca : 

60 



rts 



fOcb: 
fOcd: 
fOcf : 
f Odi : 
f 0d3 : 
f 0d4: 

a5 

30 

a4 

dO 

18 

60 

b9 

04 

b7 

02 


Ida 

bmi 

ldy 

bne 

eie 

rts 

$b9 

* $f0d3 
$b7 

* $f0d5 

! sa ] 

[ fnlen 

f 0d5: 

a9 

00 


Ida 

#$00 


f 0d7 : 

85 

90 


sta 

$90 

[ status 

f 0d9 : 

a5 

ba 


Ida 

$ba 

[ fa ] 

fOdb: 

20 

3e 

e3 

jsr 

* $e33e 


f Ode: 

24 

90 


bit 

$90 

[ status 

f OeO: 

30 

Ob 


bmi 

* $fOed 


f 0e2 : 

a5 

b9 


Ida 

$b9 

[ sa ] 

f 0e4 : 

09 

fO 


ora 

#$f0 


f 0e6 : 

20 

d2 

e4 

jsr 

* $e4d2 


f 0e9 : 

a5 

90 


Ida 

$90 

[ status 

fOeb: 

10 

05 


bpl 

* $fOf2 


f Oed : 

68 



pia 




Trasferisce detto valore nel reg. X 
Carica la parte alta Del Baud rate 
moltiplica per 2 
Trsferisce il valore nel reg. Y 
Mette in Acc. la parte bassa del baud 
Somma il valore decimale 200 
Salva il valore del baud rate (trasm) 
Carica l'acc. co nparte alta del Baud 
Somma zero 

Salva il valore del baud rate (trasm) 
Carica il vai. del Regis. di Comando 
Cerca se modo 3 line. 

Se si salta controllo DSR 
Guarda se persente DSR 
Segnale DSR mancante 
Se no salta 

Setta lo status per DSR 
Mette l'inizio del buffer input RS232 
Uguale alla fine del buff. di input 
Mette l'inizio del buff. di uscita 
Uguale alla fine del buff. di uscita 
Ritorno dalla Subroutine 

Resetta i CIA per RS232 

Azzera gli Interrupts 
nel CIA 

Predispone i byt 1 e 2 per uscita 
Scrive nel Reg. direzione dati(portaB) 
Scrive nel Reg. di uscita (portaB) 
predispone il reg. di uscita 
Della porta A come output. Per abilit. 
Il Segnale di trasmissione (TXD) 

Carica il reg. Y con zero e 
Cancella il flag di Rs232 NMI 
Ritorna dalla Subroutine 

Apertura del file sul bus seriale 

Mette il vai. dell'ind. sec. nell'Acc. 
Esce se il byt 7 e' settato per CLOSE 
Carica la lunghezza del nome file 
Continua se non e' zero 
Cancella il Carry per OK 
Ritorna dalla subroutine 

Invia il nome file sul Bus Seriale 

Azzera il Byte di stato 

Carica 1 'Acc. con il numero del Device 
Attesa per fine del Trsferimento RS232 
Test del Byte di status per EOF 
Se EOF, errore di uscita 
Carica l'Acc. con 1 ind. Secondario 

Rout. SECND: SA per LISTEN 
Carica lo status in Acc. 

Se OK continua. 

Toglie L'indirizzo RTS dallo STACK 
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105 


f Oee: 

68 



pia 



fOef : 

4c 

88 

f 6 

jmp 

* $f688 


f Of 2 : 

a5 

b7 


Ida 

$b7 

[ fnlen 

f Of 4 : 

fO 

Od 


beq 

* $f103 


f Of 6 : 

aO 

00 


ldy 

#$00 


f Of 8 : 

20 

ae 

f 7 

jsr 

* $f7ae 


fOfb: 

20 

03 

e5 

jsr 

* $e503 


fOfe: 

c8 



iny 



fOff : 

c4 

b7 


cpy 

$b7 

[ fnlen 

f 101 : 

dO 

f 5 


bne 

* $fOf8 


f 103 : 

4c 

bO 

f 5 

jmp 

* $f 5b0 



f 106 : 

20 

02 

f 2 

jsr 

* $f202 

f 109 : 

dO 

3e 


bne 

* $f149 

flOb: 

20 

12 

f 2 

jsr 

* $f212 

flOe: 

fO 

13 


beq 

* $f123 

fllO : 

c9 

03 


cmp 

#$03 

f 112: 

fO 

Of 


beq 

* $f123 

f 114 : 

bO 

11 


bcs 

* $f127 

f 116 : 

c9 

02 


cmp 

#$02 

fi 18 : 

dO 

03 


bne 

* $flld 

fila: 

4c 

95 

e7 

jmp 

* $e795 

flld: 

a6 

b9 


Idx 

$b9 [ sa ] 

f llf : 

eO 

60 


cpx 

#$60 

f 121 : 

dO 

20 


bne 

* $f143 

f 123 : 

85 

99 


sta 

$99 [ dfltn ] 

f 125 : 

18 



eie 


f 126 : 

60 



rts 



f 127 : 

aa 



tax 



f 128 : 

20 

3b 

e3 

jsr 

* $e33b 


f 12b: 

24 

90 


bit 

$90 

[ status 

f 12d : 

30 

11 


bmi 

* $f140 


f 12f : 

a5 

b9 


Ida 

$b9 

[ sa ] 

f 131 : 

10 

05 


bpl 

* $f138 


f 133 : 

20 

e9 

e4 

jsr 

* $e4e9 


f 136 : 

10 

03 


bpl 

* $fl3b 


f 138 : 

20 

eO 

e4 

jsr 

* $e4e0 


f 1 3b : 

8a 



txa 



f 13c: 

24 

90 


bit 

$90 

[ status 

f 13e: 

10 

e3 


bpl 

* $f123 


f 140: 

4c 

88 

f 6 

jmp 

* $f688 


f 143 : 

4c 

8b 

f 6 

jmp 

* $f68b 


f 146: 

4c 

8e 

f 6 

jmp 

* $f68e 


f 149 : 

4c 

82 

f 6 

jmp 

* $f682 



f 14c : 

20 

02 

f 2 

jsr 

★ 

$f 202 

f 14f : 

dO 

f 8 


bne 

* 

$f 149 

f 151 : 

20 

12 

f 2 

jsr 

* 

$f 21 2 

f 154 : 

fO 

fO 


beq 

* 

$f 146 

f 156 : 

c9 

03 


cmp 

#$03 

f 158: 

fO 

Of 


beq 

★ 

$f 169 

f 15a : 

bO 

11 


bcs 

★ 

$fl6d 


Toglie l'indirizzo RTS dallo STACK 
Errore di I/O n.5 (Device not Presenti 
Carica La lunghezza del nome file 
Esce se nessun nome 

Visual, primo carattere del nome file 

Legge 1 carattere del nome file 

Kernal CIOUT: Invia byte su bus serial 

Incrementa il puntatore per visualizz 

Controllo se visalizzati tutti 

Se no continua a inviare 

Salta a UNLSN su bus seriale e esce. 

Routine Kernal CHKIN. 

Predispone il canale di input 

Ricerca LFN nella tavola 

errore di I/O n.3 (file not found) 

Resetta LFN,DA,SA 

Se DA=0, allora setta come standard 
Da=3 (schermo) ? 

Se si, setta lo schermo come standard 
Se maggiore di 3, sceglie bus seriale 
Controlla se e' stata scelta 1 'RS232 
Se no allora e' la cassetta 
Setta 1 'RS232 come input 
Carica X con 1 'ind. secondario 
Controlla se l'ind. second. e' = 0 
Errore di I/O n.6 (Not input file) 
Mette in Pag. zero per stand.input.dev 
Azzera il Carry per OK 
Ritorna dalla subroutine 


Trasferisce L'ind. del device in X 
Rout. TALK: com. su bus seriale 
Test del byt di status 
Se bit 7 =1,allora (Device not Present 
Carica 1 'indirizzo secondario nell 'Acc 
Invia 1 'ind. Secondario per TALK 
Attesa per il segnale di clock 
Salta all'uscita dell'ind.Sec di TALK 
Vai a rout. TKSA per invio Ind.Sec. 
Trasferisce l'ind. del device da A a X 
Test del bit di status per EOF 
Se tutto OK, fissa perif. di input 
Errore di I/O n.5 (device not present) 
Errore di I/O n.6 (Not input file) 
Errore di I/O n.7 (Not output file) 
errore di I/O n.3 (File not open) 

Routine Kernal CKOUT 

Cerca per LFN nella tavola per LFN 
Errore di I/O n.3 (File not open) 
Resetta LFN,DA,SA 

Errore di I/O n.7 (Not output file) 
Controlla con DA 3 per schermo 
Se posit.mettilo come uscita standard 
Se DA >3, esegui vai. seriale 
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f 15c: 

c9 

02 

emp 

#$02 


f 15e: 

dO 

03 

bne 

* $f163 


f 16 0 : 

4c 

29 e7 

jmp 

* $e729 


f 163 : 

a6 

b9 

ldx 

$b9 

[ sa ] 

f 165: 

eO 

60 

cpx 

#$60 


f 167: 

fO 

dd 

beq 

* $f146 


f 169: 

85 

9a 

sta 

$9a 

[ dflto 

f 16b: 

18 


eie 



f 16c : 

60 


rts 




f 1 6d : 

aa 



tax 



f 16e: 

20 

3e 

e3 

jsr 

* $e33e 


f 171 : 

24 

90 


bit 

$90 

[ status 

f 17 3 : 

30 

Cb 


bmi 

* $f140 


f 17 5 : 

a5 

b9 


Ida 

$b9 

[ sa ] 

f 177: 

10 

05 


bpl 

* $f17e 


f 17 9 : 

20 

d7 

e4 

jsr 

* $e4d7 


fl7c: 

dO 

03 


bne 

* $f181 


f 1 7e : 

20 

d2 

e4 

jsr 

* $e4d2 


f 181 : 

8a 



txa 



f 182 : 

24 

90 


bit 

$90 

[ status 

f 18 4 : 

10 

e3 


bpl 

* $f169 


f 186 : 

30 

b8 


bmi 

* $f140 


ROUTINE KERNAL 

CLOSE 


f 188: 

66 

92 


ror 

$92 

( svxt ] 

f 18a : 

20 

07 

f 2 

jsr 

* $f207 


f 18d: 

dO 

de 


bne 

* $fl6b 


f 18f : 

20 

12 

f 2 

jsr 

* $f212 


f 192 : 

8a 



txa 



f 193 : 

48 



pha 



f 194 : 

a5 

ba 


Ida 

$ba 

[ fa ] 

f 196 : 

f0 

4c 


beq 

* $fle4 


f 19 8 : 

c9 

03 


emp 

#$03 


f 19a : 

f0 

48 


beq 

* $fle4 


f 19c: 

bO 

31 


bes 

* $f1cf 


f 19e : 

c9 

02 


emp 

#$02 


flaO: 

dO 

07 


bne 

* $fla9 


f la2: 

68 



pia 



f la3: 

20 

e5 

fi 

jsr 

* $fle5 


f la6: 

4c 

bO 

fO 

jmp 

* $f ObO 


f la9: 

a5 

b9 


Ida 

$b9 

[ sa ] 

f lab: 

29 

Of 


and 

#$0f 


f lad: 

fO 

35 


beq 

* $fle4 


f laf : 

20 

80 

e9 

jsr 

* $e980 


f lb2 : 

a9 

00 


Ida 

#$00 


f lb4 : 

38 



sec 



f lb5: 

20 

8c 

ef 

jsr 

* $ef8c 


f lb8: 

20 

15 

ea 

jsr 

* $eal5 


flbb: 

90 

04 


bcc 

* Sflcl 


f lbd: 

68 



pia 



f lbe : 

a9 

00 


lda 

#$00 


f IcO: 

60 



rts 




[ sa ] 


Contr. se e' selezionata 1'RS-232 

Se neg. salta ad indirizzo 

Uscita RS-232 

Metti indirizzo second.in X 

Contr. se indir, sec. = 0 

Errore di I/O n.7 (Not output file) 

Immag.in Pag . 0 per perif . stand. uscita 

Esegui un clear di carry per OK 


Trasf.in X indir.perif.per LISTN 
Vai a rout. LISTN 
Contr.STATUS per fissare bit EOF 
Errore di I/O n. 5 (device not pres) 
Carica in A indirizzo second. 

Esegui un clear su bit di OPEN/CLOSE 
Resetta il segnale di ATN 
Vai a uscita di indir, secondario 
Trasf. in A indirizzo perif. 

Controlla bit EOF sia settato 

Errore di I/O n.5(Device not presenti 

Se tutto OK vai a RTS 

Errore di I/O n.5(Device not presenti 


Esegui rotazione carry 

Ricerca LFN nella relativa tavola 

Se non trovato allora OKe return 

Vai a tavola corr. LFN,DA,SA 

Tavola spostam.puntatore 

Salva su Stack 

Carica in A indirizzo perif. 

Contr. se tastiera e' perif.indiriz 
Controlla se la periferica indirizz. 
era lo schermo)33). Se si salta ad ind 
Contr.se e' una perif. sul BUS seria. 

E ' una RS-2 32 

Se contr. neg. chiudi 

Spostati sulla tavola 

Cancella file di ingresso da tavola 

Es. reset dei CIA e vai a RTS 

Carica in A indir, secondario 

Esegui un mask out dei nublles super. 

Cancella file ingr. da tavola 

Prendi ind.buffer nastro e 

Fissa marker per chiusura 

Fissa il carry per contr. 

Scrivi un caratt. nel buffer 
Scrivi buffer su nastro 
Tutto OK,continua con chius.nastro 
Riporta uscita carattere 
Rimpiazza con CHR$(0) 


Carica in A indir, secondario 


flei : a5 b9 


Ida $b9 






f lc3: 

c9 

62 


emp 

#$6£ 


flc5: 

dO 

ld 


bne 

* $fle4 


f lc7: 

a9 

05 


Ida 

#$05 


flc9: 

20 

19 

e9 

jsr 

* $e919 


f lcc : 

4c 

e4 

fi 

jmp 

* $fle4 


f lcf : 

24 

92 


bit 

$92 

[ svxt ] 

fidi: 

10 

Oe 


bpl 

* $flei. 


f ld3: 

a5 

ba 


Ida 

$ba 

[ fa ] 

fld5: 

c9 

08 


emp 

#$08 


fld7: 

90 

08 


bcc 

* $flei 


f ld9: 

a5 

b9 


Ida 

$b9 

[ sa ] 

fldb: 

29 

Of 


and 

#$0f 


f ldd: 

c9 

Of 


emp 

#$0f 


f ldf : 

fO 

03 


beq 

* $fle4 


f lei : 

20 

9e 

f 5 

jsr 

* $f59e 


f le4 : 

68 



pia 



f le5: 

aa 



tax 



f le6 : 

c6 

98 


dee 

$98 

[ ldtnd ] 

f le8: 

e4 

98 


cpx 

$98 • 

[ ldtnd ] 

f lea: 

fO 

14 


beq 

* $f200 


f lec: 

a4 

98 


ldy 

$98 

[ ldtnd ] 

f lee: 

b9 

62 

03 

Ida 

$0362,y 


f lfl : 

9d 

62 

03 

sta 

$0362,x 


f 1 f 4 : 

b9 

6c 

03 

Ida 

$036c,y 


f 1 f 7 : 

9d 

6c 

03 

sta 

$036c,x 


fifa: 

b9 

76 

03 

Ida 

$0376,y 


f lfd: 

9d 

76 

03 

sta 

$0376,x 


f 200: 

18 



eie 



f 201 : 

60 



rts 




f 202 : 

a9 

00 

Ida 

#$00 


f 20 4 : 

85 

90 

sta 

$90 

[ status 

f 206 : 

8a 


txa 



f 207 : 

a6 

98 

ldx 

$98 

[ ldtnd ] 

f 209 : 

ca 


dex 



f 20a : 

30 

05 

bmi 

* $f211 


f 20c : 

dd 

62 03 

emp 

$0362,x 


f 20f : 

dO 

f 8 

bne 

* $f209 


f 211 : 

60 


rts 




f 212 : 

bd 

62 

03 

Ida 

$0362,x 


f 215 : 

85 

b8 


sta 

$b8 

[ la 

f 217: 

bd 

76 

03 

Ida 

$0376,x 


f 2 la : 

85 

b9 


sta 

$b9 

[ sa 

f 21c: 

bd 

6c 

03 

Ida 

$036c,x 


f 21 f : 

85 

ba 


sta 

$ba 

t fa 

f 221 : 

60 



rts 




ROUTINE 

KERNAL 

CLALL 

f 222: 

a9 

00 

Ida 

#$00 

f 224 : 

85 

98 

sta 

$98 


Contr.nibble basso-di SA = 2 
Cane, ingr.file da tavola 
Fissa byte di control.per EOT 
Scrivi blocco dati su nastro 
Cancella ingr.file da tavola 
Contr.cost. di tempo per nastro 
Se inf. di 128, invia chiusura 
Metti in A Indirizzo perif. 

Contr. se e' il drive 

Se neg. salta a chiusura disco 

Metti in A indirizzo second. 

Esegui un mask out nibble super. 

Era aperto ilcanale coiti.? 

Se pos.cancella ingr.file da tavola 

Invia comando CLOSE a periferica 

Esegui spostam. da tavola 

Copia q.s. da A a X 

Decr.n. di file aperti 

Contr.la tavola di ingresso per ved. 

se viene trovato ultimo ingr. 

Carica n. di files aperti per spost. 
Carica in A ultimo ingresso da tavola 
LFN e copia su pos. libera 
Metti ult. ingresso in tavola DA 
Copia su posizioni libera 
Metti ult. ingresso in tavola SA 
Copia su posizioni libere 
Esegui un clear di carry per OK 


Clear il byte di Status e fissa 1' 
indicatore per tutto OK 
Sposta in A target per LFN 
Metti in X n. di files aperti 
Decrementa di 1 
Contr. se confronti negativi 
Confronta con Byte da tavola LFN 
Se diverso esegui pross. confronto 


Metti in A n.di file logico dichiar. 

da X in Pag. 0 per LFN 

Idem per indirizzo secondario 

Idem per indirizzo periferica 


Carica A con 0 ed immagazzina in 
pagina 0 per n.di files aperti 


ROUTINE KERNAL CLRCH 
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f 226 : 

a2 

03 


ldx 

#$03 


f 228: 

e4 

9a 


cpx 

$9a 

[ dfIto ] 

f 22a : 

bO 

03 


bcs 

* $f22f 


f 22c : 

20 

26 

e5 

jsr 

* $e526 


f 22f : 

e4 

99 


cpx 

$99 

[ dfltn ] 

f 231 : 

bO 

03 


bcs 

* $f236 


f233 : 

20 

15 

e5 

jsr 

* $e515 


f 236 : 

86 

9a 


stx 

$9a 

[ dflto ] 

f 238 : 

a9 

00 


Ida 

#$00 


f 23a : 

85 

99 


sta 

$99 

[ dfltn ] 

f 23c: 

60 



rts 




f 23d: 

85 

ba 


sta 

$ba 

[ fa ] 

f 23f : 

c5 

9a 


emp 

$9a 

[ dflto j 

f 241 : 

d0 

05 


bne 

* $f248 


f 2 4 3 : 

a9 

03 


Ida 

#$03 


f 245 : 

85 

9a 


sta 

$9a 

[ dflto ] 

f 247 : 

2c 

c5 

99 

bit 

$99c5 


f 24a : 

dO 

04 


bne 

* $f250 


f 24c : 

a9 

00 


Ida 

#$00 


f 24e : 

85 

99 


sta 

$99 

[ dfltn ] 

f 250 : 

a5 

ba 


Ida 

$ba 

[ fa ] 

f 252 : 

a6 

98 


ldx 

$98 

[ ldtnd ] 

f 254 : 

ca 



dex 



f 255 : 

30 

Od 


bmi 

* $f264 


f 257 : 

dd 

6c 

03 

emp 

$036c,x 


f 25a : 

dO 

f 8 


bne 

* $f254 


f 2 5c : 

bd 

62 

03 

Ida 

$0362, x 


f 25f : 

20 

c3 

ff 

jsr 

* $ffc3 

[ dose ] 

f 262 : 

90 

ec 


bcc 

* $f250 


f 264 : 

60 



rts 



ROUTINE KERNAL 

LOAD 



f 265 

86 

c3 


stx 

$c3 

[ memuss ] 

f 267 

84 

c4 


sty 

$c4 

[ memuss+ 

f 26 9 

6c 

30 

03 

jmp 

($0330) 


f 26c 

85 

93 


sta 

$93 

[ verck ] 

f 26e 

a9 

00 


Ida 

#$00 


f 27 0 

85 

90 


sta 

$90 

[ status ] 

f 272 

a5 

ba 


Ida 

$ba 

[ fa ] 

f 274 

c9 

04 


emp 

#$04 


f 276 

b0 

03 


bcs 

* $f27b 


f 2 78 

4c 

26 

f 3 

jmp 

* $f326 


f 27b 

ad 

le 

0a 

Ida 

$0alc 


f 27e 

29 

be 


and 

#$be 


f 280 

8d 

le 

Oa 

sta 

$0alc 


f 283 

a 6 

b9 


ldx 

$b9 

[ sa ] 

f 285 

86 

9e 


stx 

$9e 

[ ptrl ] 

f 287 

a4 

b7 


ldy 

$b7 

[ fnlen ] 

f 289 

dO 

03 


bne 

* $f28e 


f 28b 

4c 

la 

f 3 

jmp 

* $f31a 


f 28e 

84 

9f 


sty 

$9f 

[ ptr2 ] 

f 2 90 

20 

Of 

f 5 

jsr 

* $f50f 


f 29 3 

20 

al 

f 3 

jsr 

* $f3al 


f 296 

bO 

03 


bcs 

* $f29b 


f 298 

4c 

9b 

f 3 

jmp 

* $f39b 


f 29b 

a4 

9 f 


ldy 

$9f 

[ ptr 2 ] 


Carica codice per perif. schermo 
Confr. con attuale perif in uscita 
nella routine CLRCH sul bus seriale 
Vai a routine UNLSN:comandi su bus 
Confronta con attuale perif input 
nella routine CLRCH su bus seriale 
Vai a rout. UNTLK:comando su bus ser 
Metti schermo come periferica uscita 
Metti la tastiera come periferica 
standard di input 


Immag. in pag. 0 per att.ind.perifer. 
Confronta con att. perif in uscita 
Se diverso confr.con perif.in ingres. 
Carica A con ind. perif.per schermo e 
mettilo come perif.in uscita 
* * * 

Se diverso ricerca in tavola DA 
Carica A con codice per tastiera 
e mettila come perif.di input 
Metti in A indirizzo periferica 
Metti in X n. di files aperti 
Decrementa di 1 
Se tutti i confr. neg, esci 
Confr.con tavola per ind. perif. 

Se non trovato confronta ancora 
Carica LFN per DA corrispond 
Vai a CLOSE 

Controlla per carry clear. 


Immetti ind.iniz.di part.LO in pag.O 

Come sopra ma HI 

Vettore punta a LOADSP 

Immag. in pag. 0 flag, LOAD/VERIFY 

Carica A con 0 

Fissa lo status per tutto OK 
Metti in A ind. perif. 

Controlla per ind.perif valido 

Se indir.perif >4 allora OK 

Controlla per cassetta 

Leggi punt. di sistema per modo seria 

FAST ed elimina bit 6 che 1=FAST 

0=slow 

Metti ind.second. in reg.X 

e immagag. q.s. in pag.O 

Metti lungh. nome file 

Se non e' 0, vai a mess. errore 

Errore di I/O n.8(Missing filename) 

Immag. lungh.nome file 

Messaggio "SEARCHING FOR" 

Contr. nome file e modo seriale FAST 
Contr. carry.Se fissato OK 
Fissa indir.fine caricam. e RTS 
Metti lunghezza nome file in Y e in 
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f 2 9d : 

84 

b7 


sty 

$b7 [ 

fnlen ] 

f 29f : 

a9 

60 


Ida 

#$60 


f 2al: 

85 

b9 


sta 

$b9 [ 

sa ] 

f 2a3 : 

20 

cb 

fO 

jsr 

* $fOcb 


f 2a6: 

a5 

ba 


Ida 

$ba [ 

fa ] 

f 2a8 : 

20 

3b 

e3 

jsr 

* $e33b 


f 2ab : 

a5 

b9 


Ida 

$b9 [ 

sa ] 

f 2ad : 

20 

eO 

e4 

jsr 

* $e4e0 


f 2b0 : 

20 

3e 

e4 

jsr 

* $e43e 


f 2b3 : 

85 

ae 


sta 

$ae [ 

eal ] 

f 2b5 : 

20 

3e 

e4 

jsr 

* $e43e 


f 2b8 : 

85 

af 


sta 

$af [ 

eah ] 

f 2ba : 

a5 

90 


Ida 

$90 ( 

status ] 

f 2bc : 

4a 



lsr 

a 


f 2bd : 

4a 



lsr 

a 


f 2be : 

bO 

57 


bcs 

* $f317 


f 2c0 : 

a5 

9e 


Ida 

$9e [ 

! ptrl ] 

f 2c2 : 

dO 

08 


bne 

* $f 2cc 


f 2c4 : 

a5 

c3 


Ida 

$c3 ( 

memuss ] 

f 2c6 : 

85 

ae 


sta 

$ae | 

’ eal ] . 

f 2c8 : 

a5 

c4 


Ida 

$c4 | 

’ memuss+ 1 ] 

f 2ca : 

85 

af 


sta 

$af | 

! eah ] 

f 2cc: 

20 

33 

f 5 

jsr 

* $f533 


f 2cf : 

a9 

fd 


Ida 

#$fd 


f 2dl : 

25 

90 


and 

$90 | 

; status ] 

f 2d3 : 

85 

90 


sta 

$90 | 

' status ] 

f 2d5 : 

20 

el 

ff 

jsr 

* $ffel 

ì stop ] 

f 2d8 : 

fO 

49 


beq 

* $f323 


f 2da: 

20 

3e 

e4 

jsr 

* $e43e 


f 2dd : 

aa 



tax 



f 2de: 

a5 

90 


Ida 

$90 | 

[ status ] 

f 2e0 : 

4a 



lsr 

a 


f 2el : 

4a 



lsr 

a 


f 2e2: 

bO 

eb 


bcs 

* $f 2cf 


f 2e4 : 

8a 



txa 



f 2e5: 

a4 

93 


ldy 

$93 

[ verck ] 

f 2e7 : 

fO 

12 


beq 

* $f2fb 


f 2e9: 

85 

bd 


sta 

$bd | 

[ roprty ] 

f 2eb : 

aO 

00 


ldy 

#$00 


f 2ed : 

20 

c9 

f 7 

jsr 

* $f7c9 


f 2f 0 : 

c5 

bd 


cmp 

$bd 

[ roprty ] 

f 2f 2 : 

fO 

Oa 


beq 

* $f2fe 


f 2f 4 : 

a9 

10 


Ida 

#$10 


f 2f 6 : 

20 

57 

f 7 

jsr 

* $f757 


f 2f 9 : 

dO 

03 


bne 

* $f2fe 


f 2f b : 

20 

bf 

f 7 

jsr 

* $f7bf 


f 2f e : 

e6 

ae 


ine 

$ae 

[ eal ] 

f 300 : 

dO 

08 


bne 

* $f30a 


f 302 : 

e6 

af 


ine 

$af 

[ eah ] 

f 304: 

a5 

af 


Ida 

$af 

[ eah ] 

f 306: 

c9 

ff 


cmp 

#$ff 


f 308 : 

fO 

16 


beq 

* $f320 


f 30a: 

24 

90 


bit 

$90 

[ status ] 

f 30c: 

50 

cl 


bvc 

* $f2cf 


f 30e: 

20 

15 

e5 

jsr 

* $e515 


f 311 : 

20 

9e 

f 5 

jsr 

* $f59e 


f 31 4 : 

4c 

9b 

f 3 

jmp 

* $f39b 


f 3 17 : 

4c 

85 

f 6 

jmp 

* $f685 


f 31a: 

4c 

91 

f 6 

jmp 

* $f691 


f 31d: 

4c 

94 

f 6 

jmp 

* $f694 



pagina 0 per lungh.nome file 
Metti Sa = 0 

Immag. in pag. 0 per ind.sec. 

Invia comando TALK a bus seriale 
Metti in A indirizzo periferica 
Vai a rout.TALK 

Metti in A indirizzo secondario 
Routine TKSA 

Preleva un byte dal bus seriale 
Immetti ind.iniz.in pag.O 
Preleva un byte dal bus seriale 
Immag. ind.iniz.in Pag. 0 
Carica STATUS in A 

Spostam. a destra del bit di TIMEOUT 

Come sopra ma sul Carry 

Timeout per lettura 

Metti in A indir.secondario 

Se diverso da 0 salta a ind. 

Copia indirizzo iniziale dato da X 
Y per ilcomando LOAD da $C3 e $C4 
a $AE,$AF 

Visualizza messaggio di controllo 
Carica bit di timeout 
da Status e riscrivi di nuovo 
si STATUS 

Vai a rout. kernal STOP 
Controllo tasto di STOP 
Vai a ACPTR 
Trasf. cont. in X 
Carica in A STATUS 

Elimina il bit di lettura TIMEOUT 

dal byte di status 

Contr.timeout,se e' in t.out leggi 

Ripristina cont.precede.in A 

Contr.punt.load/verify 

Contr. in pag.O 

Immag.inpag.0 buffer di parità' 

Sposta punt.per FETCH 

Vai a FETCH per operazioni LVS 

Confronta con buffer di parità' Pag.O 

Se = allora OK e salta 

Carica A se diverso 

Vai a rout. Kernal STATUS 

Se STATUS non e' OK salta 

Vai a rout. INDSTA via Pag. 0 

Incr. punt. byte basso di 1 

Contr.per overflow. se neg.salta 

Incr. punt. byte alto di 1 

Contr. se byte alto punta a interva. 

$FF00. Se contr.positivo salta 

a uscita errore 

Controllo di STATUS per bit EOF 
Se EOF non settato continua 
Vai a rout. UNTLK 

Invia segnale di Unlist su bus seria. 
Esegui un clear di carry 
Errore di I/O n.4 (file not found) 
Errore di I/O n.8 (missing filename) 
Errore di I/O n.9 (illegal device n) 
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f 320 

4c 

97 

f 6 

jmp 

* $f697 



f 323 

4c 

b5 

f 5 

jmp 

* $f5b5 



f 326 

c9 

01 


emp 

#$01 



f 328 

dO 

f 3 


bne 

* $f31d 



f 32a 

20 

80 

e9 

jsr 

* $e980 



f 32d 

90 

ee 


bcc 

* $f31d 



f 32f 

20 

c8 

e9 

jsr 

* $e9c8 



f 332 

bO 

6c 


bes 

* $f3a0 



f 334 

20 

Of 

f 5 

jsr 

* $f50f 



f 337 

a5 

b7 


Ida 

$b7 [ 

fnlen ] 


f 339 

fO 

09 


beq 

* $f344 



f 33b 

20 

9a 

e9 

jsr 

* $e99a 



f 33e 

90 

Ob 


bcc 

* $f34b 



f 340 

fO 

5e 


beq 

* $f3a0 



f 342 

bO 

d3 


bes 

* $f317 



f 34 4 

20 

dO 

e8 

jsr 

* $e8d0 



f 347 

fO 

57 


beq 

* $f 3a0 



f 34 9 

bO 

cc 


bes 

* $f 317 



f 34b 

38 



sec 




f 34c 

a5 

90 


Ida 

$90 [ 

status ] 


f 34e 

29 

10 


and 

#$10 



f 350 

dO 

4e 


bne 

* $f3a0 



f 352 

eO 

01 


cpx 

#$01 



f 354 

fO 

11 


beq 

* $f367 



f 356 

eO 

03 


cpx 

#$03 



f 358 

ao 

aa 


bne 

* $f337 



f 3 5a 

aO 

01 


ldy 

#$01 



f 35c 

bl 

b2 


Ida 

($b2),y | 

| tapel ] 


f 35e 

85 

c3 


sta 

$c3 [ 

’ inemuss ] 


f 360 

c8 



iny 




f 361 

bl 

b2 


Ida 

($b2),y | 

! tapel ] 


f 363 

85 

c4 


sta 

$c4 | 

! memusst 

1 

f 365 

bO 

04 


bes 

* $f36b 



f 367 

a5 

b9 


Ida 

$b9 | 

! sa ] 


f 369 

dO 

ef 


bne 

* $f35a 



f 36b 

aO 

03 


ldy 

#$03 



f 36d 

bl 

b2 


Ida 

( $ b 2 ), y | 

! tapel ] 


f 36f 

aO 

01 


ldy 

#$01 



f 371 

fi 

b2 


sbe 

($b2),y | 

’ tapel ] 


f 373 

aa 



tax 




f 37 4 

aO 

04 


ldy 

#$04 



f 376 

bl 

b2 


Ida 

($b2),y | 

[ tapel ] 


f 378 

aO 

02 


ldy 

#$02 



f 37a 

fi 

b2 


sbe 

($b2),y | 

[ tapel ] 


f 37c 

a8 



tay 




f 37d 

18 



eie 




f 37e 

8a 



txa 




f 37f 

65 

c3 


adc 

$c3 

[ memuss ] 

] 

f 381 

85 

ae 


sta 

$ae | 

i eal ] 


f 383 

98 



tya 




f 384 

65 

c4 


adc 

$c4 ! 

[ memusst 

1 

f 386 

85 

af 


sta 

$af 

i eah ] 


f 388 

c9 

f f 


emp 

#$ff 



f 38a 

fO 

94 


beq 

* $f 320 



f 38c 

a5 

c3 


Ida 

$c3 

[ memuss 

1 

f 38e 

85 

cl 


sta 

$cl 

[ track ] 


f 390 

a5 

c4 


Ida 

$c4 

[ memusst 

1 

f 392 

85 

c2 


sta 

$c2 

[ stah ) 


f 394 

20 

33 

f 5 

jsr 

* $f533 



f 397 

20 

fb 

e9 

jsr 

* $e9fb 




Errore di I/O n. 10 
Interruzione di routine LOAD 
E' un caricamento da cassetta? 

Se no e ' un errore n.9 
Contr.indir, buffer nastro 
Indirizzo buffer nastro illegale 
Attendi per tasto premuto su cass. 
Tasto di STOP premuto 
Uscita nome file 

Immag. lunghezza nome file in Pag.O 

Lunghezza =0,vai a ricerca nome 

Ricerca per testata nastro 

Se ok continua 

Contr. tasto Stop premuto 

Errore di I/O n.4(file not found) 

Leggi HEADER da nastro 
Controllo tasto di STOP 
Errore di I/O n.4 (file not found) 
Fissa per ricerca errore 
Carica in A STATUS 
Cancella bit 4 
Metti a 1 bit 4 
Contr. codice header 
Se q.s. =1 e' un progr. basic 
Controlla se e ' un codice 3 (progr.LM) 
Se non e' ne'l ne' 3 continua rie. 
Carica buffer cassetta 
Prendi ind.inizio LO da Buffer 
Copialo su punt.LO indirizzo caricami. 
Buffer di cassetta +1 
Prendi ind.inizio HI da Buffer 
] Copialo su punt.HI indirizzo caricami. 
Salto incondizionato per prog. LM 
Carica ind. sec. in A 
Se e ' = 0 append 
Sposta, su buffer cassetta 
Prendi ind.fine LO da Buffer 
Spost. su Buffer di cassetta 
Sottrai ind.iniz.LO da fine 
Trasf. in X 

Spostam. su buffer cassetta 
Prendi fine ind. HI da Buffer 
Buffer cassetta spostam. 

Sottrai ind.iniz.HI da fine 
Trasf.valore HI in Y 
Esegui un clear di carry per somma 
Lungh. progr. in A 

Somma ind.iniz.mem a lunghezza progr. 
Immag.per fine ind. basso 
Trasf.lungh.progr. in A 
] Somma indir.part. memoria a lungh.prò 
Immetti in punt. per fine ind.HI 
Contr.se ind. di fine in $FF00 
Se si errore I/O n.O 
Copia indir.part.memoria LO in 
Pagina 0 e carica punt. LO 
] Come sopra per puntatore HI 

Visualizza LOADING/VERIFYING 
Carica programma da nastro 
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Ili 


f 39a : 

24 


. 

byte 

$24 


f 3 9 b : 

18 



eie 



f 39c : 

a6 

ae 


ldx 

$ae [ 

eal ] 

f 39e: 

a4 

af 


ldy 

$af [ 

eah ] 

f 3a0: 

60 



rts 



f 3al : 

a0 

00 


ldy 

#$00 


f 3a3: 

20 

ae 

f 7 

jsr 

* $f7ae 


f 3a6: 

c9 

24 


emp 

#$24 


f 3a8: 

f 0 

f 6 


beq 

* $f 3a0 


f 3aa : 

a6 

ba 


ldx 

$ba [ 

fa ] 

f 3ac: 

aO 

0f 


ldy 

#$0f 


f 3ae : 

a9 

00 


Ida 

#$00 


f 3b0: 

20 

38 

f 7 

jsr 

* $f738 


f 3b3 : 

85 

b7 


sta 

$b7 [ 

fnlen ] 

f 3b5 : 

20 

cO 

ff 

jsr 

* $ffcO [ 

open ] 

f 3b8: 

a6 

b8 


ldx 

$b8 [ 

la ] 

f 3ba : 

20 

c9 

ff 

jsr 

* $ffc9 [ 

ckout ] 

f 3bd: 

90 

08 


bec 

* $f 3c7 


f 3bf : 

20 

8c 

f 4 

jsr 

* $f48c 


f 3c2: 

68 



pia 



f 3c3 : 

68 



pia 



f 3c4 : 

4c 

88 

f 6 

jmp 

* $f688 


f 3c7 : 

aO 

03 


ldy 

#$03 


f 3c9: 

b9 

Ob 

f 5 

Ida 

* $f50b,y 


f 3cc: 

20 

d2 

ff 

jsr 

* $ffd2 [ 

bsout ] 

f 3cf : 

88 



dey 



f 3d0: 

dO 

f 7 


bne 

* $f3c9 


f 3d2 : 

20 

ae 

f 7 

jsr 

* $f7ae 


f 3d5 : 

20 

d2 

ff 

jsr 

* $ffd2 [ 

bsout ] 

f 3d8 : 

c8 



iny 



f 3d9 : 

c4 

9f 


cpy 

$9f [ 

ptr2 ] 

f 3db: 

d0 

f 5 


bne 

* $f3d2 


f 3dd: 

20 

cc 

ff 

jsr 

* $ffcc [ 

clrch ] 

f 3e0 : 

2c 

le 

0a 

bit 

$0alc 


f 3e3: 

70 

05 


bvs 

* $f3ea 


f 3e5: 

20 

8c 

f 4 

jsr 

* $f48c 


f 3e8 : 

38 



sec 



f 3e9: 

60 



rts 



f 3ea : 

a5 

9 f 


Ida 

$9f [ 

ptr2 ] 

f 3ec: 

85 

b7 


sta 

$b7 [ 

fnlen ] 

f 3ee : 

78 



sei 



f 3ef : 

20 

45 

e5 

jsr 

* $e545 


f 3f2: 

20 

c3 

e5 

jsr 

* $e5c3 


f 3f 5: 

2c 

Od 

de 

bit 

* $dc0d 


f 3f 8 : 

20 

03 

f 5 

jsr 

* $f503 


f 3fb: 

20 

ba 

f 4 

jsr 

* $f4ba 


f 3fe: 

c9 

02 


emp 

#$02 


f 400: 

d0 

08 


bne 

* $f40a 


f 402 : 

20 

8c 

f 4 

jsr 

* $f48c 


f 405 : 

68 



pia 



f 406 : 

68 



pia 



f 407 : 

4c 

85 

f 6 

jmp 

* $f685 


f 40a : 

48 



pha 



f 40b : 

c9 

lf 


emp 

#$lf 


f 4 Od : 

d0 

Ob 


bne 

* $f41a 


f 40f : 

20 

03 

f 5 

jsr 

* $f503 


f 412 : 

20 

ba 

f 4 

jsr 

* $f4ba 


f 415 : 

85 

a5 


sta 

$a5 [ 

cntdn ] 


Vai a $F39C 

Esegui un clear di Garry per indie. 
Metti in X ind. di fine LO 
Metti in Y ind. di fine HI 


Fissa per routine FETCH 
Vai a indirizzo indicato 
Contr.se primo car.e' $ 

Se positivo return 

Carica indir, perif in X 

Metti ind.secondario a 15 

Metti file logico a 0 

Vai a rout.SETLFS per fiss.par.file 

Metti =0 lunghezza nome file 

Vai a OPEN 

Metti in X n. di file logico 

Vai a rout. CKOUT per fiss.canale use 

Se nessun errore continua 

Richiudi file logico 

Sposta ind. RTS da Stack 

Sposta ind. RTS da Stack 

Errore di I/O n.5 (device not present 

Contatore ciclo 

Invia stringhe com. a disco 

Vai a rout.BSOUT 

Decr. ciclo di 1 

Ciclo a UO:invia un CHR$(#!) a disco 

Carattere per nome file 

Vai a routine BSOUT 

Incr.cont. nome file 

Confronta con lunghezza nome file 

Se non trovato succ. carattere 

Vai a CLRCH 

Contr. punt. modo seriale FAST 
Contr .possibilità ' trasferirti. 

Richiudi file logico 
Fissa indicatore per OK 


Immag.temp.per lunghezza nome file 
Puntat. in Pag.O per lungh.nome file 
Disabilita gli interrupt 
Invia segn.HI clock su bus seriale 
Attendi risposta da bus seriale 
Es.clear su flag IRQ di CIA 
Inverti segnale clock LO/HI 
Preleva byteda bus 
Contr. visualizz. "File not Found" 

Se neg. vaiad indirizzo 

Segn. clock su bus seriale e chius.fi 

Togli dallo Stack e trasf in A i 2 

bytes di indirizzo RTS 

Errore di I/O n.4 (File not found) 

Trasf. Status su stack 

Contr. se e' indicat.per ult.blocco 

Se neg. salta 

Inverti segnale di clock LO/HI 
Preleva byte da bus seriale 
Immag.byte per cont. numero cicli 
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f 41 7 

4c 

21 

f 4 

jmp 

* $f421 


f 41a 

c9 

02 


emp 

#$02 


f 4 le 

90 

03 


bcc 

* $f421 


f 41e 

68 



pia 



f 41 f 

bO 

77 


bes 

* $f498 


f 421 

20 

33 

f 5 

jsr 

* $f533 


f 424 

20 

03 

f 5 

jsr 

* $f503 


f 427 

20 

ba 

f 4 

jsr 

* $f4ba 


f'42a 

85 

ae 


sta 

$ae [ 

eal ] 

f 4 2c 

20 

03 

f 5 

jsr 

* $f503 


f 42f 

20 

ba 

f 4 

jsr 

* $f4ba 


f 432 

85 

af 


sta 

$af [ 

eah ] 

f 434 

a6 

9e 


ldx 

$9e [ 

ptrl ] 

f 436 

dO 

08 


bne 

* $f440 


f 438 

a5 

c3 


Ida 

$c3 [ 

memuss ] 

f 43a 

a6 

c4 


ldx 

$c4 [ 

memusst 

f 43c 

85 

ae 


sta 

$ae [ 

eal ] 

f 4 3e 

86 

af 


stx 

$af [ 

eah ] 

f 440 

a5 

ae 


Ida 

$ae [ 

eal ] 

f 442 

a6 

af 


ldx 

$af [ 

eah ] 

f 444 

85 

ac 


sta 

$ac [ 

sai ] 

f 446 

86 

ad 


stx 

$ad [ 

sah ] 

f 44 8 

68 



pia 



f 44 9 

c9 

lf 


emp 

#$lf 


f 44b 

fO 

32 


beq 

* $f47f 


f 44d 

20 

03 

f 5 

jsr 

* $f503 


f 450 

a9 

f c 


Ida 

#$fc 


f 452 

85 

a5 


sta 

$a5 [ 

cntdn ] 

f 454 

20 

3d 

f 6 

jsr 

* $f63d 


f 457 

20 

el 

ff 

jsr 

* $ffel[ 

stop ] 

f 45a 

fO 

4a 


beq 

* $f4a6 


f 45c 

20 

c5 

f 4 

jsr 

* $f4c5 


f 45f 

bO 

51 


bes 

* $f4b2 


f 461 

20 

ba 

f 4 

jsr 

* $f4ba 


f 464 

c9 

02 


emp 

#$02 


f 466 

90 

06 


bcc 

* $f46e 


f 468 

c9 

lf 


emp 

#$lf 


f 46a 

f 0 

Ob 


beq 

* $f477 


f 46c 

dO 

2a 


bne 

* $f498 


f 46e 

20 

03 

f 5 

jsr 

* $f50 3 


f 471 

a9 

f e 


Ida 

#$f e 


f 47 3 

85 

a5 


sta 

$a5 [ 

cntdn ] 

f 475 

dO 

dd 


bne 

* $f454 


f 477 

20 

03 

f 5 

jsr 

* $f503 


f 47a 

20 

ba 

f 4 

jsr 

* $f4ba 


f 47d 

85 

a5 


sta 

$a5 [ 

cntdn ] 

f 47f 

20 

03 

f5 

jsr 

* $f503 


f 482 

20 

c5 

f 4 

jsr 

* $f4c5 


f 485 

bO 

2b 


bes 

* $f4b2 


f 487 

a9 

40 


Ida 

#$40 


f 489 

20 

57 

f 7 

jsr 

* $f757 


f 4 8c 

20 

45 

e5 

jsr 

* $e545 


f 48f 

58 



eli 



f 4 90 

a5 

b8 


Ida 

$b8 [ 

la ] 

f 492 

38 



sec 



f 493 

20 

c3 

ff 

jsr 

* $ffc3[ 

dose ] 

f 496 

18 



eie 



f 497 

60 



rts 




Fissa ind. di load 
Controllo Status per trasferim 
Se contr. $01 OK 
Cancella Status immaga. 

Vai a "LOAD ERROR" ed esci 
visualizza LOADING/VERIFYING 
Inverti segnale di clock LO/HI 
Indirizzo di caricamento LO 
Salva su A punt.ind.basso 
Inverti segnale di clock LO/HI 
Prendi byte da bus,carica ind. HI 
Immag. in A punt. indirizzo 
Carica e contr. ind. sec.immagaz. 

Se <> 0,allora carica progr. 

Indirizzo di LOAD LO in A 
] Indirizzo di LOAD HI in X 
Immag. ind. LC in punt. LO 
C.S. per ind. HI 
Metti in A punt. ind. LO 
Metti in X punt. HI 

Fissa A come punt.indirizzo caricam. 
C.s. con reg. X 

Preleva da Stack Status per trasf. 

Contr. se status punta a ult. blocco 

Se pos.vai a blocco lungh.standard 

Inverti segn. di Clock LO/HI 

Metti cont.data per primo blocco del 

file da leggere a 252 

Controlla per Shift RUN/STOP 

Vai a rout. STOP 

Controllo tasto STOP.Se=0 esci 

Leggi blocco da disco ed esegui 

Rilev.errore in ind.memoria quindi RTS 

Byte da bus seriale 

Controlla stus di transf. 

Se e' un codice $01 OK 

Contr.se questo e'per ultimo blocco 

Se pos. leggi ultimo blocco 

Vai a "LOAD ERROR" ed esci 

Inverti segnale di clock LO/HI 

Fissa il contatore data per normale 

lettura' di 254 bytes 

Salto incond.a rout. di lettura 

Inverti segnale di clock LO/HI 

Byte da bus seriale (n. blocco-byte) 

Metti in A byte n.cont. ciclo 

Inverti segnale di clock LO/HI 

Lettura blocco da disco e esegui 

Rilev. errore in ind. memoria,Vai RTS 

metti in A codice per EOF 

Vai a rout. kernal SETMSG 

Invia segn. di clock alto su bus ser. 

Abilita tutti gli interrupt 

Metti n.di file logico in A 

Fissa il carry per rout. CLOSE 

Vai a rout.Kernal CLOSE 

Es.clear di carry per OK 
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f 498 : 

a9 

02 


Ida 

#$02 

Errore di Timeout durante lettura 

f 49a: 

20 

57 

f 7 

jsr 

* $f757 

Vai a rout. kernal SETMSG 

f 49d : 

20 

8c 

f 4 

jsr 

* $f48c 

Invia segn.clock HI su bus e dose 

f 4a0: 

68 



pia 


Cancella dallo Stack indirizzo di 

f 4al: 

68 



pia 


ritorno per RTS 

f 4a2: 

a9 

29 


Ida 

#$29 

N. errore per errore Basic LOAD 

f 4a4 : 

38 



sec 


Fissa segnale per rilev.errore 

f 4a5 : 

60 



rts 




f 4a6 : 

20 

8c 

f 4 

jsr 

* $f48c 

Segnale clock HI su bus e dose file 

f 4a9: 

a9 

00 


Ida 

#$00 

Poni a n.O puntatole in Pag. 0 

f 4ab: 

85 

b9 


sta 

$b9 [ sa 1 

per att. indirizzo secondario 

f 4ad : 

68 



pia 


Cancella dallo Stack indirizzo di 

f 4ae : 

68 



pia 


ritorno per RTS 

f 4af : 

4c 

b5 

f 5 

jmp 

* $f5b5 

Vai a rout. di STOP 

f 4b2: 

20 

8c 

f 4 

jsr 

* $f48c 

Invia segn.clock HI su bus e Close 

f 4b5 : 

68 



pia 


Cancella dallo stack indirizzo di 

f 4b6: 

68 



pia 


ritorno per RTS 

f 4b7: 

4c 

97 

f 6 

jmp 

* $f697 

Salta ad uscita errore I/O n.10 

f 4ba: 

a9 

08 


Ida 

#$08 

Fissa bit di controllo per interrupt 

f 4bc: 

2c 

Od 

de 

bit 

* $dc0d 

Leggi reg. controllo interrupt 

f 4bf : 

fO 

fb 


beq 

* $f4bc 

Attesa per interrupt su bus seriale 

f 4cl : 

ad 

Oc 

de 

Ida 

* $dc0c 

leggi da bus dati buffer di CIA 

f 4c4 : 

60 



rts 




f 4 c 5 : 

a9 

08 


Ida 

#$08 


Fissa bit contr.per bus interrupt 

f 4c7 : 

2c 

Od 

de 

bit 

* $dc0d 


Leggi reg.controllo interrupt 

f 4ca : 

fO 

fb 


beq 

* $f4c7 


Attesa per interrupt su bus seriale 

f 4cc: 

ac 

Oc 

de 

ldy 

* $dc0c 


Leggi buffer dati CIA da bus seriale 

f 4cf : 

ad 

00 

dd 

Ida 

* $dd00 


Leggi porta dati A di CIA 2 

f 4d2 : 

49 

10 


eor 

#$10 


Di conseguenza inverti il segnale di 

f 4d4 : 

8d 

00 

dd 

sta 

* $dd00 


clock e scrivi su porta A 

f 4d7 : 

98 



tya 



Trasf. buffer dati in A 

f 4d8 : 

a4 

93 


ldy 

$93 [ 

verck ] 

Controlla punt. per LOAD/VERIFY in Pa 

f 4da : 

fO 

12 


beq 

* $f4ee 


0 per vai. $00.Se pos. e' rout.LOAD 

f 4dc: 

85 

bd 


sta 

$bd [ 

roprty ] 

Immag. byte di data per operaz.VERIFy 

f 4de: 

aO 

00 


ldy 

#$00 


Posiz. punt. per rout. FETCH 

f 4e0: 

20 

c9 

f 7 

jsr 

* $f7c9 


Vai a FETCH 

f 4e3 : 

c5 

bd 


emp 

$bd [ 

roprty ] 

Confronta byte dati con memoria 

f 4e5: 

f 0 

Oa 


beq 

* $f4f1 


Se = allora tutto OK e continua 

f 4e7 : 

a9 

10 


Ida 

#$10 


Se <> fissa segnale di errore 

f 4e9: 

20 

57 

f 7 

jsr 

* $f757 


Vai a rout. STATUS 

f 4ec : 

dO 

03 


bne 

* $f4f1 


Salta rout. STASH per LOAD 

f 4ee : 

20 

bf 

f 7 

jsr 

* $f7bf 


Vai a STASH per Load,Save,Verify 

f 4f 1 : 

e6 

ae 


ine 

$ae [ 

eal ] 

Increm di 1 LO per operaz. di I/O 

f 4f 3 : 

dO 

08 


bne 

* $f4fd 


Se nessun overflow vai a indir. 

f 4f 5 : 

e6 

af 


ine 

$af [ 

eah ] 

Increm. valore HI di ind. I/O 

f4f 7: 

a5 

af 


Ida 

$af [ 

eah ] 

Controlla se il valore HI di I/O pun. 

f 4 f 9 : 

c9 

ff 


emp 

#$ff 


alla tavola di vettori del sistema 

f 4f b : 

fO 

05 


beq 

* $f502 


Se pos. vai a RTS 

f 4fd: 

c6 

a5 


dee 

$a5 [ 

cntdn ] 

Decr. di 1 contatore byte dati 

f 4f f : 

dO 

c4 


bne 

* $f4c5 


Ciclo lettura tutti i bytes 

f 501 : 

18 



eie 



Clear di carry per tutto OK 

f 502 : 

60 



rts 





f 50 3 : 

ad 

00 dd Ida * $dd00 

Leggi porta dati A 

del CIA 2 

f 506 : 

49 

10 eor #$10 

Inverti segnale di 

clock 
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f 508 : 

8d 00 dd 

sta * SddOO 

f 50b : 

60 

rts 


f 50c: 

lf 

30 

55 



Ou 

f 50f : 

a5 

9d 


Ida 

$9d [ 

msgflg ] 

f 511 : 

10 

lf 


bpl 

* $f532 


f 513 : 

aO 

Oc 


ldy 

#$0c 


f 515 : 

20 

22 

f 7 

jsr 

* $f722 


f 518: 

a5 

b7 


Ida 

$b7 [ 

fnlen ] 

f 51a : 

fO 

16 


beq 

* $f532 


f 51c : 

aO 

17 


ldy 

#$17 


f 5 le : 

20 

22 

f 7 

jsr 

* $f722 


f 521 : 

a4 

b7 


ldy 

$b7 [ 

fnlen ] 

f 523 : 

fO 

Od 


beq 

* $f532 


f 525: 

aO 

00 


ldy 

#$00 


f 527 : 

20 

ae 

f 7 

jsr 

* $f 7ae 


f 52a : 

20 

d2 

ff 

jsr 

* $ffd2 

[bsout ] 

f 52d : 

c8 



iny 



f 52e : 

c4 

b7 


cpy 

$b7 

[ fnlen ] 

f 530 : 

dO 

f 5 


bne 

* $f527 


f 532 : 

60 



rts 




f 533 : 
f 5 3 5 : 
f 537: 
f 539 : 
f 53b: 

aO 

a5 

fO 

aO 

4c 

49 

93 

02 

59 

le 

f 7 

ldy 

Ida 

beq 

ldy 

jmp 

#$49 

$93 [ 

* $f53b 
#$59 

* $f71e 

verck ] 

ROUTINE KERNAL 

SAVESP 


f 53e : 

86 

ae 


stx 

$ae [ 

eal ] 

f 54 0 : 

84 

af 


sty 

$af [ 

eah ] 

f 54 2 : 

aa 



tax 



f 543 : 

b5 

00 


Ida 

$00,x [ 

d6510 

f 545 : 

85 

cl 


sta 

$cl [ 

track ] 

f 54 7 : 

b5 

01 


Ida 

$01,x [ 

r6510 ] 

f 549 : 

85 

c2 


sta 

$c2 [ 

stah ] 

f 54b : 

6c 

32 

03 

jmp 

($0332) 


f 54e: 

a5 

ba 


Ida 

$ba [ 

fa ] 

f 55 0 : 

c9 

01 


cmp 

#$01 


f 552: 

f0 

74 


beq 

* $f5c8 


f 554 : 

c9 

04 


cmp 

#$04 


f 556: 

b0 

09 


bcs 

* $f561 


f 558 : 

4c 

94 

f 6 

jmp 

* $f694 


f 55b: 

4c 

91 

f 6 

jmp 

* $f691 


f 55e : 

4c 

85 

f 6 

jmp 

* $f685 


f 561 : 

a4 

b7 


ldy 

$b7 [ 

fnlen ] 

f 563 : 

fO 

f 6 


beq 

* $f55b 


f 565 : 

a9 

61 


Ida 

#$61 


f 567 : 

85 

b9 


sta 

$b9 [ 

sa ] 

f 569: 

20 

cb 

fO 

jsr 

* $f Ocb 


f 56c: 

20 

bc 

f 5 

jsr 

* $f5bc 


f 56f : 

a5 

ba 


Ida 

$ba [ 

fa ] 

f 571 : 

20 

3e 

e3 

jsr 

* $e33e 


f 574 : 

a5 

b9 


Ida 

$b9 [ 

sa ] 

f 576 : 

20 

d2 

e4 

jsr 

* $e4d2 



Pa< 


Riscrivilo sulla porta A 

Sequenza di controllo al disco. 
Invia un CHR$(31 ) 


E' consentito un messaggio di contr. 

Se neg. return 

Posizionati per ricerca 

Uscita messaggio controllo sistema 

Metti in A lungh. nome file 

Contr. se lungh. = 0 poi return 

Posizionatiper testo FOR 

Uscita messaggio controllo sistema 

Metti in Y lungh.att.nome file 

Se lunghezza = 0 salta 

Iniz. spost. sul nome del file 

Prendi un byte del nome file 

Vai a rout. BSOUT 

Incr. per inizio nome file 

Confronta con lungh. nome file 

Se <> vai al prossimo carattere 


Posizio. per testo LOADING 
Preleva segnai. Load-Verify 
Se e ' un load (0), visualizza 
Posiz. su VERIFY 

Messaggio di uscita controllo sist. 


Immag. in X ind. LO di Immagazzinam. 

C.s. su Y ind. HI 

Trasf in X ind.in Pag. 0 di Imm. 

Metti in A indir, per valore LO 
immag. q.s 

Come sopra per valore HI 
C.S. 

Vai a SAVESP 

Metti in A indir.perif. 

Controlla se perif inusc.e'cassetta 
Se pos. rout. di save su cassetta 
Contr. se ind.perif <4 
Se neg. vai a messaggio di errore 
Errore di I/O n.9(Illegal device) 
Errore di I/O n.8(Missing filename) 
Errore di I/O n.4(File not found) 
Metti lungh.nome file in Y 
Contr.se lungh.=0. errore di I/O 8 
Metti in A ind.secondario per operaz. 
di Print?Write 

Contr. lungh. e indir, secondario 

Se abilitati vis. SAVING 

Metti in A indir.periferica 

Vai a rout. LISTN 

Metti in A indir, secondario 

Vai a SECND 
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f 57 9 : 

aO 

00 


ldy 

#$00 


f 57b: 

20 

51 

ed 

jsr 

* 

$ed51 


f 5 7e : 

20 

03 

e5 

jsr 

★ 

$e503 


f 581 : 

a5 

ad 


Ida 

$ad [ 

sah ] 

f 583 : 

20 

03 

e5 

jsr 

* 

$e503 


f 586: 

20 

b7 

ee 

jsr 

* 

$eeb7 


f 589 : 

bO 

10 


bes 

* 

$f59b 


f 58b: 

20 

cc 

f 7 

jsr 

* 

$f 7cc 


f58e: 

20 

03 

e5 

jsr 

★ 

$e503 


f 591 : 

20 

el 

ff 

jsr 

* 

$ffel [ 

stop ] 

f 594 : 

fO 

u 


beq 

★ 

$f 5b5 


f 596: 

20 

cl 

ee 

jsr 

* 

$eecl 


f 599 : 

dO 

eb 


bne 

* 

$f 586 


f 59b : 

20 

26 

e5 

jsr 

★ 

$e526 


f-59e : 

24 

b9 


bit 

$b9 [ 

sa ] 

f 5a0 : 

30 

11 


bmi 

★ 

$f 5b3 


f 5a2: 

a5 

ba 


Ida 

$ba [ 

fa ] 

f 5a4 : 

20 

3e 

e3 

jsr 

★ 

$e33e 


f 5a7: 

a5 

b9 


Ida 

$b9 [ 

sa ] 

f 5a9 : 

29 

ef 


and 

#$ef 


f 5ab: 

09 

eO 


ora 

#$e0 


f 5ad : 

20 

d2 

e4 

jsr 

* 

$e4d2 


f 5b0: 

20 

26 

e5 

jsr 

* 

$e526 


f 5b3 : 

18 



eie 




f 5b4 : 

60 



rts 




ROUTINE KERNAL 

SAVESP 



f 5b5: 

20 

9e 

f 5 

jsr 

★ 

$f 59e 


f 5b8: 

a9 

00 


Ida 

#$00 


f 5ba: 

38 



sec 




f 5bb : 

60 



rts 





f 5bc: 

a5 

9d 


Ida 

$9d [ 

’ msgflg ] 

f 5be : 

10 

37 


bpl 

* $f5f7 


f 5c0 : 

aO 

51 


ldy 

#$51 


f 5c2 : 

20 

22 

f 7 

jsr 

* $f722 


f 5c5 : 

4c 

21 

f 5 

jmp 

* $f521 


f 5c8 : 

20 

80 

e9 

jsr 

* $e980 


f 5cb: 

90 

8b 


bcc 

* $f558 


f 5cd: 

20 

e9 

e9 

jsr 

* $e9e9 


f 5d0 : 

bO 

25 


bes 

* $f5f7 


f 5d2: 

20 

bc 

f 5 

jsr 

* $f5bc 


f 5d5: 

a2 

03 


ldx 

#$03 


f 5d7: 

a5 

b9 


Ida 

$b9 

[ sa ] 

f 5d9: 

29 

01 


and 

#$01 


f 5db: 

dO 

02 


bne 

* $f5df 


f 5dd: 

a2 

01 


ldx 

#$01 


f 5df : 

8a 



txa 



f 5e0 : 

20 

19 

e9 

jsr 

* $e919 


f 5e3 : 

bO 

12 


bes 

* $f5f7 


f 5e5: 

20 

18 

ea 

jsr 

* $eal8 


f 5e8 : 

bO 

Od 


bes 

* $f5f7 


f 5ea : 

a5 

b9 


Ida 

$b9 

[ sa ] 

f 5ec: 

29 

02 


and 

#$02 


f 5ee : 

fO 

06 


beq 

* $f5f6 


f 5f 0 : 

a9 

05 


Ida 

#$05 


f 5f 2 : 

20 

19 

e9 

jsr 

* $e919 


f 5f 5: 

24 

18 


bit 

$18 

[ tempot ] 


Metti =0 reg. Y per piazz. 

Copia ind.iniz. da C1,C2 a AD,DC 
Vai a rout. CIOUT 
Immag. ind. di inizio vai. HI 
Vai a CIOUT 

Sottrazione :Ind.iniz.-ind.finale 
Se rilev. indirizzo finale esci 
Metti in FETVEC ind.inizio 
Vai a CIUOT 
Vai a rout. STOP 

Se tasto STOP premuto,inter. SAVESP 
Increm.ind.iniziale di 1 
Contr. se overflow in byte HI 
Vai a UNLSN 

Contolla Bit 7 di Ind. sec. 

Se bit 7 fissato, salta 
Carica in A ind. periferica 
Vai a LISTN 
Carica ind. sec. in A 

Esegui AND su nibble LO di ind. second 
Invia un CLOSE a periferica 
Vai a SECND 
Vai a UNLSN 

Ese. un clear di carry per OK 


Chiudi canale di scritt. su perif 
Carica A con $00 come segnalat. 
Fissa il carry per indie.break/err. 


Contr. se invio mess. consentito 
Se neg. return 

Piazz. per operaz. di SAVING in Y 

Vis. messaggio di SAVING 

Vis. nome del file 

Punt. buffer di cass. in X e Y 

Se pag.0,1 non abilit.errore di I/O 9 

Attesa per tasto PLAY 

Contr. tasto STOP 

Se tutto OK, vis. "SAVING" 

Metti tipo HEADER 3, cioè' prog.LM 

Carica ind. sec. in A 

Contr. se bit 0=1 

Se pos. progr. in LM 

Metti tipo HEADER 1, progr.Basic 

Copia tipo Header in A 

Scrivi HEADER su nastro 

Contr. tasto STOP premuto 

Salva progr. su cassetta 

Esci se tasto STOP premuto 

Metti in A indirizzo secondario 

Contr. se bit 1 =1 

Se neg. allora OK ed esci 

Metti codice per EOT in A 

Scrivi blocco su nastro 

Metti indie, per tutto OK 
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f5f7 : 60 rts 


ROUTINE KERNAL UDTIM 


f 5f 8 

e6 

a2 


ine 

$a2 

t 

time+ 

2 ] 

f 5f a 

dO 

06 


bne 

* $f 602 




f 5fc 

e6 

al 


ine 

$al 

[ 

timet 

1 ] 

f 5f e 

dO 

02 


bne 

* $f602 




f 600 

e6 

aO 


ine 

$a0 

[ 

time ] 


f 602 

38 



sec 





f 603 

a5 

a2 


Ida 

$a2 

t 

time+ 

2 ] 

f 605 

e9 

01 


sbe 

#$01 




f 607 

a5 

al 


Ida 

$al 

[ 

time+ 

1 ] 

f 609 

e9 

la 


sbe 

#$la 




f 60b' 

a5 

aO 


Ida 

$a0 

[ 

time ] 


f 60d 

e9 

4f 


sbe 

#$4f 




f 60f 

90 

08 


bcc 

* $f619 




f611 

a2 

00 


ldx 

#$00 




f 613 

86 

aO 


stx 

$a0 

[ 

time ] 


f 615 

86 

al 


stx 

$al 

[ 

time+ 

1 ] 

f 617 

86 

a2 


stx 

$a2 

[ 

time+ 

2 ] 

f 619 

ad 

ld 

0a 

Ida 

$0ald 




f 61c 

dO 

Ob 


bne 

* $f629 




f61e 

ad 

le 

Oa 

Ida 

$ Oale 




f 621 

dO 

03 


bne 

* $f626 




f 623 

ce 

lf 

Oa 

dee 

$0al f 




f 626 

ce 

le 

Oa 

dee 

$0ale 




f 629 

ce 

ld 

Oa 

dee 

$0ald 




f 62c 

2c 

03 

Oa 

bit 

$0a03 




f 62f 

10 

Oc 


bpl 

* $f63d 




f 631 

ce 

36 

Oa 

dee 

$0a36 




f 6 34 

10 

07 


bpl 

* $f63d 




f 636 

a9 

05 


Ida 

#$05 




f 638 

8d 

36 

Oa 

sta 

$0a36 




f 63b 

dO 

bb 


bne 

* $f5f8 




f 63d 

ad 

01 

de 

Ida 

* $dc01 




f 640 

cd 

01 

de 

emp 

* $dc01 




f 643 

dO 

f 8 


bne 

* $f63d 




f 645 

aa 



tax 





f 646 

30 

13 


bmi 

* $f65b 




f 648 

a2 

bd 


ldx 

#$bd 




f64a 

8e 

00 

de 

stx 

* $dc00 




f 64d 

ae 

01 

de 

ldx 

* $dc01 




f 650 

ec 

01 

de 

cpx 

* $dc01 




f 653 

dO 

f 8 


bne 

* $f64d 




f 655 

8d 

00 

de 

sta 

* $dc00 




f 658 

e8 



inx 





f 659 

dO 

02 


bne 

* $f65d 




f 65b 

85 

91 


sta 

$91 | 


stkey ] 

! 

f 65d 

60 



rts 






ROUTINE KERNAL 

RDTIM 


f 65e : 

78 

sei 


f 65f : 

a5 a2 

Ida $a2 

[ time+ 2 ] 

f 661 : 

a6 al 

ldx $al 

[ time+ 1 ] 

f 663 : 

a4 aO 

ldy $a0 

[ time ] 


Valori riferiti a clock interno 

Incr.byte LO del clock di sistema 
Se nessun overflow esegui correz. 
Incr.byte MI del clock di sistema 
Se nessun overflow esegui correz. 
Incr.byte HI del clock di sistema 
Fissa il carry per sottrazione 
In questa routine vengono controll, 
i giusti valori attraverso sottraz. 
per vedere se il clock di sistema 
interno e messo a 24.00.00 nei bytes 
$A0-$Al-$A2 

In questo caso i tre bytes devono 
essere reinizializzati 
Nelle seguenti istruzioni vengono 
Immagazzinati i tre bytes di cui 
sopra. HI, MI, LO 

Contr. immag. temp. clock LO 

Se <>0 allora solo LO -1 

Contr. immag. temp. clock MI 

Se <>0 allora solo MI-1 

Clock HI -1 

Clock MI -1 

Clock LO -1 

Contr. punt. PAL/NTSC 

Se "PLUS" allora NTSC 

Decr.punt. linea raster -1 

Contr. se =0, se no vai a ind. 

Il punt. di sistema per linea raster 
e' inizializz. con vai. 5 
Salto incondizionato a UDTIM 
Lettura della porta B per controllo 
matrice di tastiera 
Esegui ciclo di attesa 
Trasferisci codice tastiera in X e 
salta a ind. se tasto di RUN/STOP atti 
Metti il bit map per riga in porta A 
per la selez.matrice di linea 
C.s. per matrice colonna porta B 
Lettura ed attesa 

Immag. in A per linea matrice porta A 
Incrementa valore di 1 
Se nessun tasto SHIFT premuto,salta 
Immag. in A punt.RVS 


Disabilita tutti gli interrupt 
Immag.nei reg. di pag. 0 i byte per 
clock di sistema rispettivamente 
LO-MI-HI 


ROUTINE KERNAL SETTIM 
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f 665 : 

78 


sei 



Disabilita tutti gli iinterrupt 

f 666 : 

85 

a2 

sta 

Sa2 [ 

time+ 2 ] 

Vedi la routine precedente. La diffe 

f 668 : 

86 

al 

stx 

Sai [ 

time+ 1 ] 

fra le due rout.e' che la prima legge 

f 66a : 

84 

aO 

sty 

$a0 [ 

time ] 

mentre questa immgazzina i valori 

f 66c : 

58 


eli 



Abilita tutti gli interrupt 

f 66d : 

60 


rts 




f 66e : 

a5 

91 

Ida 

$91 

[ stkey ] 

Predisponi immag.per floag di stop 

f 67 0 : 

c9 

7 f 

emp 

#$7f 


Controllo per tasto STOP premuto 

f 672 : 

d0 

07 

bne 

* $f67b 


Se neg.,return con flag di uguale a 0 

f 67 4 : 

08 


php 



Salva il flag 

f 675 : 

20 

cc f f 

jsr 

* Sffcc 

[ clrch ] 

Vai a CLRCH 

f 678 : 

85 

dO 

sta 

$d0 

[ ndx ] 

Eseg.Clear su punt.buffer tastiera 

f 67a : 

28 


plp 



Metti in Stack flag di uguale 


f 67b : 

60 



rts 


TAVOLA DEI MESSAGGI 

DI ERRORE 

f 67c : 

a9 

01 


Ida 

#$01 

f 67e : 

2c 

a9 

02 

bit 

$0 2a9 

f 681 : 

2c 

a9 

03 

bit 

$03a9 

f 684 : 

2c 

a9 

04 

bit 

$0 4a9 

f 687 : 

2c 

a9 

05 

bit 

$05a9 

f 68a : 

2c 

a9 

06 

bit 

$06a9 

f 68d : 

2c 

a9 

07 

bit 

$07a9 

f 690 : 

2c 

a9 

08 

bit 

$08a9 

f 693 : 

2c 

a9 

09 

bit 

$09a9 

f 696 : 

2c 

a9 

10 

bit 

$10a9 


f 699 : 

48 



pha 



Immagazzina codice errore su Stack 

f 69a : 

20 

CC 

ff 

jsr 

* Sffcc I 

[ clrch ] 

Vai a CLRCH 

f 69d : 

a0 

00 


ldy 

#$00 


Posiz.per messag.di errore I/O 

f 69f : 

24 

9d 


bit 

$9d | 

[ msgflg ] 

Controlla se messaggi di sistema abili 

f èal : 

50 

0a 


bvc 

* $f 6ad 


Se non cons. esci 

f 6a3 : 

20 

22 

f 7 

jsr 

* $f722 


Vai a rout.di mess.uscita 

f 6a6 : 

68 



pia 



Sposta in A n.codice errore 

f 6a7 : 

48 



pha 



e mettilo sullo Stack 

f 6a8: 

09 

30 


ora 

#$30 


Riporta vai.ASCII di codice errore 

f 6aa: 

20 

d2 

ff 

jsr 

* $ffd2 

[ bsout ] 

Vai a rout.BSOUT 

f 6ad : 

68 



pia 



Cancella da Stack codice errore 

f 6ae: 

38 



sec 



Fissa il flag di carry come segnai. 

f 6af : 

60 



rts 





TAVOLA DEI MESSAGGI DI CONTROLLO E DI SISTEMA 


f 6b0 : 

Od 

49 

2f 

4f 

20 

45 

52 

52 

<cr> i/o err 

f 6b8 : 

4f 

52 

20 

a3 

Od 

53 

45 

41 

or <cr> sea 

f 6c0: 

52 

43 

48 

49 

4e 

47 

aO 

46 

rching f 

c8 : 

4f 

52 

aO 

Od 

50 

52 

45 

53 

or <cr> pres 

f 6d0 : 

53 

20 

50 

4c 

41 

59 

20 

4f 

s play o 

f 6d8 : 

4e 

20 

54 

41 

50 

c5 

50 

52 

n tapEpr 

f 6e0 : 

45 

53 

53 

20 

52 

45 

43 

4 f 

ess reco 

f 6e8: 

52 

44 

20 

26 

20 

50 

4c 

41 

rd & pia 

f 6f 0: 

59 

20 

4f 

4e 

20 

54 

41 

50 

y on tap 

f 6f 8 : 

c5 

Od 

4c 

4f 

41 

44 

49 

4e 

E <cr> loadin 

f 700 : 

c7 

Od 

53 

41 

56 

49 

4e 

47 

G <cr> saving 

f 7 08 : 

aO 

Od 

56 

45 

52 

49 

46 

59 

<cr> verify 

f 710: 

49 

4e 

c7 

Od 

46 

4 f 

55 

4e 

inG <cr> foun 







f 718 : 

44 

a0 

Od 

4f 4b 8d 


d <cr> 

f 71e : 

24 

9d 


bit $9d 

[ 

msgflg ] 

f 720 : 

10 

Od 


bpl * $f72f 



f 722 : 

b9 

bO 

f 6 

Ida * $f6b0, 

y 


f 725 : 

08 



php 



f 726 : 

29 

7 f 


and #$7f 



f 728 : 

20 

d2 

ff 

jsr * $ffd2 

[ 

bsout ] 

f 72b: 

c8 



iny 



f 72c : 

28 



pip 



f 72d : 

10 

f 3 


bpl * $f722 



tilt: 

18 



eie 



f 730 : 

60 



rts 



ROUTINE KERNAL 

SETNAM 



f 731 : 

85 

b7 


sta $b7 

[ 

fnlen ] 

f 733: 

86 

bb 


stx $bb 

[ 

fnadr ] 

f 7 35 : 

84 

bc 


sty $bc 

[ 

fnadr+ 1 

f 737 : 

60 



rts 



ROUTINE KERNAL 

SETLFS 



f 738 : 

85 

b8 


sta $b8 

[ 

la ] 

f 7 3a : 

86 

ba 


stx $ba 

[ 

fa ] 

f 73c : 

84 

b9 


sty $b9 

[ 

sa ] 

f 7 3e : 

60 



rts 



ROUTINE KERNAL 

SETBNK 



f 73f : 

85 

c6 


sta $c6 

[ 

ba ] 

f 741 : 

86 

c7 


stx $c7 

[ 

fnbank ] 

f 74 3 : 

60 



rts 



ROUTINE KERNAL 

READST 



f 744 : 

a5 

ba 


Ida $ba 

[ 

fa ] 

f 746 : 

c9 

02 


emp #$02 



f 748 : 

dO 

Ob 


bne * $f755 



if 74a : 

ad 

14 

0a 

Ida $0al4 



f 74d : 

48 



pha 



f 7 4e : 

a9 

00 


Ida #$00 



f 750: 

8d 

14 

Oa 

sta $0al4 



f 753: 

68 



pia 



f 754 : 

60 



rts 




f 755 : 
f 757 : 
f 75 9 : 
f 75b: 

a5 

05 

85 

60 

90 

90 

90 

Ida $90 
ora $90 
sta $90 
rts 

[ status ] 

[ status ] 

[ status ] 

ROUTINE 

KERNAL 

SETMSG 


f 75c : 

85 

9d 

sta $9d 

[ msgflg ] 

f 75e: 

60 


rts 



ok 


Contr. se consent uscite messaggi 
Se neg. esci 

Leggi byte da tavola messaggi 
Immagazzina suStack 

Es. mask out su bit 7,nessun car.RVS 
Vai a rout.BSOUT 

Incr. di 1 per vis.pross.carattere 
Preleva carattere da Stack 
Contr.se bit 7 e' messo come segnai. 
Ese. un clear di carry 


Fissa i parametri per nome del file 

Metti in A byte per lungh.nome file 
Metti in X byte per indir.LO nome file 
Metti in Y byte per indir.HI nome file 


Fissa i parametri per file logico 

Metti in A byte per n.file 'logico 
Metti in X byte per ind. periferica 
Metti in Y byte per ind. secondario 


Fissa i banchi di memoria 

Metti in A n.att.banco per LSV 
Metti in X n.att.banco per nome file 


Leggi lo STATUS■del sistema 

Metti in A indirizzo periferica 
Contr.se e' indirizzata la RS-232 
Se neg. metti normale Status 
Esegui quanto sopra ma per RS-232 
Immagazzina sullo Stack 
Carica A con $00 su RS-232 
Prendi lo Status come tutto OK 
Preleva status di RS-232 da Stack 


Metti lo Status in A 

Esegui un OR fra A e Status sistema 

Immag. in A per Status 


Abilita messaggi di controllo sistema 
Immag.byte per mess.contr.sistema 


ROUTINE KERNAL SETTMO 
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f 75f : 
f 762 : 

8d Oe 
60 

0a 

sta $0a0e 
rts 


ROUTINE KERNAL 

MEMTOP 


f 763 : 

90 06 


bcc * $f 76b 


f 765 : 

ae 07 

Oa 

ldx $0a07 


f 768: 

ac 08 

Oa 

ldy $0a08 


f 76b : 

8e 07 

Oa 

stx $0a07 


f 76e : 

8c 08 

Oa 

sty $0a08 


f 771 : 

60 


rts 


ROUTINE KERNAL 

MEMBOT 


f 772 : 

90 06 


bcc * $f77a 


f 774 : 

ae 0 5 

Oa 

ldx $0a05 


f 777 : 

ac 06 

Oa 

ldy $0a06 


f 77a : 

8e 05 

0a 

stx $0a05 


f 77d : 

8c 06 

0a 

sty $0a06 


f 780 : 

60 


rts 


ROUTINE KERNAL 

IOBASE 


f 781 : 

a2 00 


ldx #$00 


f 783 : 

aO dO 


ldy #$d0 


f 785 : 

60 


rts 


ROUTINE KERNAL 

LKUPSA 


f 786 : 

98 


tya 


f 787 : 

a6 98 


ldx $98 [ ldtnd ] 

f 78 9 : 

ca 


dex 


f 78a: 

30 Of 


bmi * $f79b 


f 78c : 

dd 76 

03 

cmp $0376,x 


f 78f : 

dO f8 


bne * $f789 


f 791 : 

20 12 

f 2 

jsr * $f212 


f 794 : 

aa 


tax 


f 795 : 

a5 b8 


Ida $b8 [ la 

1 

f 797 : 

a4 b9 


ldy $b9 [ sa 

] 

f 799 : 

18 


eie 


f 79a : 

60 


rts 


f 79b : 

38 


sec 


f 79c : 

60 


rts 


ROUTINE KERNAL 

LKUPLA 


f 79d 

aa 


tax 


f 79e 

20 02 

f 2 

jsr * $f202 


f 7al 

f 0 ee 


beq * $f791 


f 7a3 

dO f6 


bne * $f79b 


ROUTINE KERNAL 

DMA-CALL 


f 7a5 : 

bd fO 

f 7 

Ida * $f7f0,x 


f 7a8 : 

29 fe 


and #$fe 


f 7aa: 

aa 


tax 


f 7ab: 

4c f0 

03 

jmp $03f0 



Immag. A nel Flag di timeout IEEE 


Contr.se carry a 1 allora leggi 
Questa routine serve per mettere nei 
registri X e Y rispettivamente gli 
indirizzi LO e HI della fine della 
memoria RAM 


Stessa routine della precedente che 
pero' immag. rispettivamente in X e Y 
gli indirizzi LO e HI di inizio 
RAM 


Metti in X ind.LO di I/O 
Metti in Y ind.HI di I/O 


Metti in A 1 ' indirizzo secondario 
Metti in X n.di files aperti 
Decrementa di 1 

Se confr.fra indice è q.s negativo es 
Confr. con byte HI da tav. SA 
Se non trovato esegui altro confr. 
Preleva LFN,DA,SA da tavola corris. 
Copia DA rilev. in X 
Metti in A n. di file logico 
Metti ind. secondario in Y 
Clear di carry 

Fissa carry 


Immag. valore LFN di ricerca in X 
Metti OK lo status, ricerca tav. LFN 
Tavola trovata.Aggiorna pag.O ed esci 
Se invece non trovato esci con errore 


Metti su A vai. di X indicizzato 
Es. un AND per mask-out bit 0 
Trasf.val.di conf.sureg.X 
Vaia a banco LO di rout.DMA 


ROUTINE KERNAL FETCH 
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f 7ae : 
f 7bl : 
f 7b3: 
f 7b5 : 
f 7b8: 
f 7bb: 

8e 

a6 

a9 

20 

ae 

60 

35 

c7 

bb 

dO 

35 

Oa 

f 7 
Oa 

stx 

ldx 

Ida 

jsr 

ldx 

rts 

$0a35 
$c7 [ 

#$bb 
* $f 7d0 
$0a35 

fnbank ] 

ROUTINE KERNAL 

STASH 


f 7bc: 

a2 

ac 


ldx 

#Sac 


f 7be : 

2c 



.byte 

$2c 


f 7bf : 

a2 

ae 


ldx 

#$ae 


f 7cl : 

8e 

b9 

02 

stx 

$02b9 


f 7c4 : 

a6 

c6 


ldx 

$c6 [ 

ba ] 

f 7c6 : 

4c 

da 

f 7 

jmp 

* $f7da 


f 7c9 : 

a9 

ae 


Ida 

#$ae 


f 7cb : 

2c 



. byte 

$2c 


f 7cc: 

a9 

ac 


Ida 

#$ac 


f 7ce: 

a6 

c6 


ldx 

$c6 [ 

ba ] 

f 7d0: 

8d 

aa 

02 

sta 

$02aa 


f 7d3: 

bd 

fO 

f 7 

Ida 

* $f7f 0, x 


f 7d6: 

aa 



tax 



f 7d7: 

4c 

a2 

02 

jmp 

$0 2a2 


f 7da: 

48 



pha 



f 7db: 

bd 

fO 

f 7 

Ida 

* $f7f 0, x 


f 7de: 

aa 



tax 



f 7df : 

68 



pia 



f 7e0 : 

4c 

af 

02 

jmp 

$02af 


f 7e3: 

48 



pha 



f 7e4 : 

bd 

fO 

f 7 

Ida 

* $f7f0,x 


ilei: 

aa 



tax 



f 7e8 : 

68 



pia 



f 7e9: 

4c 

be 

02 

jmp 

$02be 


f 7ec: 

bd 

fO 

f 7 

Ida 

* $f7f0 ,x 


f 7ef : 

60 



rts 




f 7f 0 : 

3f 

7f 

bf 

ff 

16 

56 

96 

d6 

f 7f 8 : 

2a 

6a 

aa 

ea 

06 

Oa 

01 

00 


f 800 : 

ad 

00 

ff 

Ida 

* SffOO 


f 803 : 

8e 

00 

ff 

stx 

* $ff00 


f 806 : 

aa 



tax 



f 807 : 

bl 

ff 


Ida 

($ff),y ! 

lofbuf 

f 809 : 

8e 

00 

ff 

stx 

* $ff00 


f 80c : 

60 



rts 




f 8 Od : 

48 



pha 



f 80e : 

ad 

00 

ff 

Ida 

* $ff00 


f 811 : 

8e 

00 

ff 

stx 

* $ff00 


f 814 : 

aa 



tax 



f 815 : 

68 



pia 



f 816 : 

91 

ff 


sta 

( $ff),y I 

lofbuf 

f 81 8 : 

8e 

00 

ff 

stx 

* SffOO 


f 81b : 

60 



rts 




Immag. valori di X 

Carica n.banco per attuale nome file 
Metti in A $BB per rout. FETVEC 
Vai a INDFET 
Ripristina cont.reg. X 


Punt. a ind.l(LO) di LSV di I/O 
Vai a $F7C1 

Punt. a ind.2(LO) di LSV di I/O 
Metti in STATVEC cont.reg. X 
Metti in X n.banco attuale LSV 
Vai a rout. INDSTA 
Punt. X ind.l(LO) di LSV 
Vai a SF7CE 

Punt.per ind.2(LO) di LSV 

Metti in X n.banco attuale LSV 

Metti cont. di A in FETVEC 

Metti in A valore determ.di configur. 

da tavola e trasf. in X 

Vai a FETCH 

Immag. in A cont.per coma. STA 
Metti in A vai.configurazione dato da 
X rii.da tavola.Trasf.quindi in X 
Metti cont. in A per confronto 
Vai a rout. di CMPARE 
Metti in X val.config. 

Fissa vai. determ. di config per X 

dalla tavola 

A per confronto 

Via a rout. CMPARE 

Carica X con config. definita 


Tavola di configurazione per operazi 
ALL FAR 


Salva in A att.val. di configurazione 
Metti in X nuovo vai. config. 

Trasf. vecchio vai.in X 
Metti in A valore di Y 
Ripristina vecchia configurazione 


Metti cont. A su Stack 

Metti in A att. vai. di configuraz. 

Fissa in X nuovo vai. di config. 

Trasferisci in X vecchio valore conf 

Ripristina su Stack valore config. 

Metti su vai. di X 

Ripristina vecchio vai. config. 


f81c: 48 


pha 


Salva su Stack valore per CMPARE 
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f 81d : 

ad 

00 

ff 

Ida 

* $ff00 

f 820 : 

8e 

00 

ff 

stx 

* $ff00 

f 8 23 : 

aa 



tax 


f 824 : 

68 



pia 


f 82 5 : 

di 

f f 


cmp 

($ff),y [ lofbuf ] 

f 827 : 

8e 

00 

ff 

stx 

* $ff00 

f 8 2a : 

60 



rts 



f82b: 

20 

e3 

02 

jsr 

$0 2e3 



f 82e : 

85 

06 


sta 

$06 

[ 

a-reg ] 

f 830 : 

86 

07 


stx 

$07 

[ 

x-reg ] 

f 832 : 

84 

08 


sty 

$08 

[ 

y-reg ] 

f 834 : 

08 



php 




f 835 : 

68 



pia 




f 836 : 

85 

05 


sta 

$05 

[ 

s-reg ] 

f 838 : 

ba 



tsx 




f 839: 

86 

09 


stx 

$09 

[ 

charac 

f 83b : 

a9 

00 


Ida 

#$00 



f 83d : 

8d 

00 

ff 

sta 

* $ff00 



f 840 : 

60 



rts 





f 841 : 

a2 

00 


ldx 

#$oo 



f 843 : 

b5 

03 


Ida 

$03,x [ 

pc-hi 

] 

f 845 : 

48 



pha 



f 846 : 

e8 



inx 




f 8 4 7 : 

e0 

03 


cpx 

#$03 



f 849 : 

90 

f 8 


bcc 

* $f843 



f 84b : 

a6 

02 


ldx 

$02 [ 

bank ] 


f 84d : 

20 

6b 

ff 

jsr 

* $ff6b [ 

getegf 

] 

f 850 : 

8d 

00 

ff 

sta 

* $ff00 



f 8 5 3 : 

a5 

06 


Ida 

$06 [ 

a-reg 

] 

f 855 : 

a6 

07 


ldx 

$07 [ 

x-reg 

] 

f 857 : 

a4 

08 


ldy 

$08 [ 

y-reg 

] 

f 859 : 

40 



rti 




f85a : 

ae 

00 

ff 

ldx 

* $ff00 



f 85d : 

8c 

01 

df 

sty 

* $df01 



f 86 0 : 

8d 

00 

ff 

sta 

* $ff00 



f 863 : 

8e 

00 

ff 

stx 

* $ff00 



f 866 : 

60 



rts 




ROUTINE KERNAL 

PHOENIX 



f 867 : 

78 



sei 




f 868 : 

a2 

03 


ldx 

#$03 



f 86a : 

8e 

cO 

0a 

stx 

$0ac0 



f 86d : 

ae 

cO 

Oa 

ldx 

$0ac0 



f 870 : 

bd 

cl 

0a 

Ida 

$0acl,x 



f 87 3 : 

f 0 

ii 


beq 

* $f886 



f 875 : 

a0 

00 


ldy 

#$00 



f 877 : 

bd 

bc 

e2 

Ida 

* $e2bc,x 



f 87a : 

85 

03 


sta 

$03 [ 

pc-hi 

1 

f 87c: 

84 

04 


sty 

$04 [ 

pc-lo 

] 

f 8 7 e : 

bd 

cO 

e2 

Ida 

* $e2c0,x 



f 881 : 

85 

02 


sta 

$02 [ 

bank ] 


f 883 : 

20 

cd 

02 

jsr 

$02cd 



f 886 : 

ce 

cO 

0a 

dee 

$0ac0 



f 889 : 

10 

e2 


bpl 

* $f86d 



f 88b: 

58 



eli 





Salva su A vecchia config. 

Fissa via X nuovo vai. di config. 
Trasfer. vecchio valore in X 
Riprendi valore di CMPARE 
Confronta con vai. di Y 
Ripristina vecchia config. 


Vai a rout. JMPFAR 

Salva su A valori rout. prec. 

Idem per X 
Idem per Y 

Salva status del processore su Stack 

Immetti in A status 

Salva in Pagina zero 

Trasf. in X stack 

Salva in pag. zero punt. immagazz. 

Metti $00 in registro di config 

Abilita tutti i sistemi di ROM 


In questo ciclo, il valore immesso in 
pagina 0 per i bytes $03-$04-$05 
per il contatore di programma e per 
lo status del proc. vengono immagazz. 
sullo Stack. Confronto con cont. X 
alla fine della routine. 

Carica punt. banco per spos. config. 
Vai a routine GETCFG 
Fissa registri di configuraz. 
Caricamento di tutti i registri in 
pagina zero A,X,Y 

Vai a indirizzo cont. programmi 
Metti reg. di config. in X 
Fissa controller DMA 
Registro di config. in A 
Registro di config. in X 


Disabilita tutti gli interrupt 

Iniziai, banchi e puntatori 

per cartridge esterno in banco 3 

Metti punt. spostam. in X 

Contr. tavola ID per spazio cartr. 

Contr. se tavola ingresso =0 

Fissa ind. di ingresso LO a $00 

Metti in A indir. HI da tavola 

Metti A in ind.HI in PC HI 

Metti Y in ind. LO in PC LO 

Carica A con valore banco da Bank tab. 

Immag.val. di cui sopra in Pag.O 

Vai a JSRFAR 

Decrem.punt. spostam. di 1 
Controlla le 4 aree di cartridge 
Abilita tutti gli interrupt 
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f 88c: 

a2 

08 


ldx 

#$08 


f 88e : 

a9 

30 


Ida 

#$30 


f 890: 

85 

bf 


sta 

$bf [ 

drive ] 

f 892: 

86 

ba 


stx 

$ba [ 

fa ] 

f 894 : 

8a 



txa 



f 895 : 

20 

3d 

f 2 

jsr 

* $f23d 


f 898 : 

a2 

00 


ldx 

#$00 


f 89a : 

86 

9f 


stx 

$9f [ 

ptr2 ] 

f 89c: 

86 

c2 


stx 

$c2 [ 

stah ] 

f 89e : 

e8 



inx 



f 89f : 

86 

cl 


stx 

$cl [ 

track ] 

f 8al : 

c8 



iny 



f 8a2: 

dO 

fd 


bne 

* $f8al 


f 8a4: 

e8 



inx 



f 8a5: 

dO 

fa 


bne 

* $f 8al 


f 8a7 : 

a2 

Oc 


ldx 

#$0c 


f 8a9: 

bd 

08 

fa 

Ida 

* $fa08. 

X 

f 8ac: 

9d 

00 

01 

sta 

$0100 ,x 


f 8af : 

ca 



dex 



f 8b0 : 

10 

f 7 


bpl 

* $f8a9 


f 8b2 : 

a5 

bf 


Ida 

$bf [ 

drive ] 

f 8b4 : 

8d 

06 

01 

sta 

$0106 


f 8b7: 

a9 

00 


Ida 

#$00 


f 8b9 f 

a2 

Of 


ldx 

#$0f 


f 8bb: 

20 

3f 

f 7 

jsr 

* $f73f 


f 8be: 

a9 

01 


Ida 

#$01 


f 8c0 : 

a2 

15 


ldx 

#$15 


f 8c2 : 

aO 

fa 


ldy 

#$f a 


f 8c4 : 

20 

31 

f 7 

jsr 

* $f731 


f 8c7 : 

a9 

00 


Ida 

#$00 


f 8c9 : 

aO 

Of 


ldy 

#$0f 


f 8cb : 

a6 

ba 


ldx 

$ba 

[ fa ] 

f 8cd : 

20 

38 

f 7 

jsr 

* $f738 


f 8d0 : 

20 

cO 

ff 

jsr 

* $ffc0 

[ open ] 

f 8d3: 

bO 

16 


bcs 

* $f 8eb 


f 8d5: 

a9 

01 


Ida 

#$01 


f 8d7: 

a2 

16 


ldx 

#$16 


f 8d9: 

aO 

fa 


ldy 

#$f a 


f 8db: 

20 

31 

fi 

jsr 

* $f731 


f 8de: 

a9 

Od 


Ida 

#$0d 


f 8é0 : 

a8 



tay 



f 8el : 

a6 

ba 


ldx 

$ba 

[ fa ] 

f 8e3: 

20 

38 

fi 

jsr 

* $f738 


f 8e6 : 

20 

cO 

ff 

jsr 

* $ffc0 

[ open ] 

f 8e9 : 

90 

03 


bcc 

* $f 8ee 


f 8eb: 

4c 

8b 

f 9 

jmp 

* $f98b 


f 8ee : 

a9 

00 


Ida 

#$00 


f 8f 0 : 

aO 

Ob 


ldy 

#$0b 


f 8f 2 : 

85 

ac 


sta 

$ac 

[ sai ] 

f 8f 4 : 

84 

ad 


sty 

$ad 

[ sah ] 

f 8f 6 : 

20 

d5 

f 9 

jsr 

* $f9d5 


f 8f 9 : 

a2 

00 


ldx 

#$00 


f 8f b : 

bd 

00 

Ob 

Ida 

$ ObO 0, x 


f 8f e : 

dd 

c4 

e2 

cmp 

* $e2c4, 

X 

f 901 : 

dO 

e8 


bne 

* $f8eb 


f 903 : 

e8 



inx 



f 904 : 

eO 

03 


cpx 

#$03 


f 906 : 

90 

f 3 


bcc 

* $f8fb 


f 908 : 

20 

17 

fa 

jsr 

* $fal7 



Indirizzo periferica per BOOT 
Metti (0) in A 

Byte di pag. 0 per buffer seriale 
Fissa indirizzo perif. x disco 8 
Copia indirizzo perif. in A 
Fissa lo standard per perif. I/O 
Inizializza lungh.cont.per BOOT 
Carica nome file con 0 
Fissa n. settore per BOOT 
Incrementa cont. di 1 
Fissa n. traccia per BOOT 
Incrementa registro di ciclo Y 
Esegui ciclo 256 volte fino a reg=0 
Idem per X 
Idem per X 

Spostam. puntatore per DOS 

Carica caratt. per com. BOOT del DOS 

Copia q.s. in buffer DOS 

Decrementa punt. di 1 

Ciclo di trasf di 11 caratteri 

Prendi da A n. drive da Pag 0 

Immetti A in buffer di DOS 

Chiam.n.banco per attuale LVS 

N. banco per attuale nome file 

Vai a rout. SETBANK 

Fissa =1 lunghezza nome file 

Fissa ind. LO di nome file 

Fissa ind. HI di nome file 

Vai a rout. SETNAM 

Poni in A n. di file logico 

Poni in Y indir, secondario 

Poni in X indirizzo periferica 

Vai a rout. SETLFS 

Vai a rout. OPEN 

Contr. rilev. errore.Se pos.fine BOOT 
Lunghezza nome file =1 
Indir. LO nome file =FA16 
Indir. HI nome file = # 

Vai a rout. SETNAM 

N. file logico in A 

Poni q.s. come indir, secondario 

N. di periferica in X 

Vai a SETLFS 

Vai a OPEN 

Esegui un clear globale e continua 
Inizializza disco 
Iniz. II byte di pag. 0 
Poni il punt di indir, inizio a 
$0b00 
*** 

Carica inizio in Buffer cassetta 
Esegui un clear di ciclo 
Controlla che i primi 3 bytes del sett 
iniziale disco letti nel buffer di 
cassetta siano codice di Autostart 
C-B-M 

Sé pos. allora e' un programma di 

caricamento 

Vai a PRIMM 
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f 90b: 

Od 

42 

4f 

4f 54 

49 4e 47 

<cr> 

f 913 : 

20 

00 




booting 

FISSA 

I PUNTATORI 



f 915 : 

bd 

00 

Ob 

Ida 

$0b00,x 


f 918: 

95 

a9 


sta 

$a9,x [ 

rinone ] 

f 91a: 

e8 



inx 



f 9 lb : 

eO 

07 


cpx 

#$07 


f 91d: 

90 

f 6 


bcc 

* $f915 


f 91f : 

bd 

00 

Ob 

Ida 

$0b00,x 


f 922 : 

fO 

06 


beq 

* $f92a 


f 924 : 

20 

d2 

ff 

jsr 

* $ffd2[ 

bsout ] 

f 927 : 

e8 



inx 



f 928 : 

dO 

f 5 


bne 

* $f91f 


f 92a : 

86 

9e 


stx 

$9e [ 

ptrl ] 

f 92c : 

20 

17 

fa 

jsr 

* $fal7 


COSTANTI 

PER MESSAGGIO DI BOOT 

f 92f : 

2e 

2e 

2e 





f 932 : 

Od 

00 

a5 

ora 

$a500 


f 935 : 

ae 

85 

c6 

ldx 

* $c685 


f 938 : 

a5 

af 


Ida 

$af [ 

eah ] 

f93a: 

fO 

09 


beq 

* $f945 


f 93c : 

c6 

af 


dee 

$af ( 

eah ] 

f 9 3e : 

20 

b3 

f 9 

jsr 

ine 

* $f9b3 


f 941 : 

e6 

ad 


$ad [ 

sah ] 

f 943 : 

dO 

f 3 


bne 

* $f938 


f 945 : 

20 

8b 

f 9 

jsr 

* $f98b 


f 948 : 

a6 

9e 


ldx 

$9e [ 

ptrl ] 

f 94a : 

2c 



byte 

$2c 


f 94b : 

e6 

9f 


inx 

$9f 


f 94d : 

e8 



inx 



f 94e : 

bd 

00 

Ob 

Ida 

$0b00,x 


f 951 : 

dO 

f 8 


bne 

* $f94b 


f 953 : 

e8 



inx 



f 954 : 

86 

04 


stx 

$04 [ 

pc-lo 

f 956 : 

a6 

9e 


ldx 

$9e [ 

ptrl ] 

f 958 : 

a9 

3a 


Ida 

#$3a 


f95a : 

9d 

00 

Ob 

sta 

$0b00,x 


f 95d: 

ca 



dex 



f 9 5e : 

a5 

bf 


Ida 

$bf [ 

drive 

f 960 : 

9d 

00 

Ob 

sta 

$0b00,x 


f 9 6 3 : 

86 

9e 


stx 

$9e [ 

ptrl ] 

f 96 5 : 

a6 

9f 


ldx 

$9f [ 

ptr2 ] 

f 967 : 

fO 

15 


beq 

* $f97e 


f 969 : 

e8 



inx 



f 96a : 

e8 



inx 



f 96b : 

8a 



txa 



f 96c : 

a6 

9e 


ldx 

$9e [ 

ptrl ] 

f 96e : 

aO 

Ob 


ldy 

#$0b 


f 97 0 : 

20 

31 

f 7 

jsr 

* $f731 


f 973 : 

a9 

00 


Ida 

#$00 


f 975 : 

aa 



tax 



f 976 : 

20 

3f 

f 7 

jsr 

* $f73f 


f 979 : 

a9 

00 


Ida 

#$00 



Costanti KERNAL per messaggio di 
caricamento 


Poni a S0B03 indirizzi dei puntatori 
di LOAD e inizializza pag. 0 
*** 

Confronto puntatori 
Ciclo per caricamento punt. 

Prendi caratt. out. da buffer di cass 

Contr.per vai. $00 

Vai a rout. BSOUT 

Increm. per buffer cassetta 

Salto incondiz. a car. output 

Immagazzina in buffer di cassetta 

Vai a routine PRIMM 


Punt.sett.BOOT in banco 
Copia punt. per STASH 
Contatore per n.blocchi di BOOT 
Contr. se tutti blocchi BOOT letti 
Decrem. blocchi di BOOT -1 
Carica da disco pross.traccia/sett 
Increm ind. di carie. HI di 1 
Leggi prossimo blocco 
Inizializza disco per BOOT 
Spost. a buffer di cassetta 
Vai a $F94D 

Incr.lungh.cont.nome file 
Fissa per caratt. dopo 0 
Carattere dopo nome file 
Se non=0 continua lett. 

Fissa per caratt. dopo 0 
Immettilo in PC LO 
Posiz. su punt. prima nome file 
Rimpiazza 0 con (:) 

Metti q.s. prima del nome file 
Decrem car. prima di (:) 

Carattere ASCII del drive 
Metti (0:xxxx) del nome file 
Salva indirizzo LO nome file "— 
Lunghezza nome file 
Se nessun nome vai a indir. 
Incrementa di 2 puntatore nome file 
*** 

Copia.in A lunghezza nome file 

Indirizzo LO nome file 

Fissa ind. HI nome file 

Vai a SETNAM 

Iniz. A e X con $00 

Trasf per routine SETBANK 

Vai a rout. SETBANK 

Fissa A come marker di LOAD 
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f 97b : 

20 

69 

f 2 

jsr 

* $f269 



f 97e : 

a9 

Ob 


Ida 

#$0b 



f 9 80 : 

85 

03 


sta 

$03 [ 

pc-hi ] 


f 982 : 

a9 

Of 


Ida 

#$0f 


f 98 4 : 

85 

02 


sta 

$02 [ 

bank ] 


f 986: 

20 

cd 

02 

jsr 

$02cd 



f 989 : 

18 



eie 




f 98a : 

60 



rts 




INIZIALIZZA 

FLOPPY PER BOOT 



f 98b: 

08 



php 




f 98c: 

48 



pha 




f 98d: 

20 

cc 

ff 

jsr 

* $ffcc 

[ clrch 

] 

f 990 : 

a9 

Od 


Ida 

#$0d 



f 992: 

18 



eie 




f 993 : 

20 

c3 

ff 

jsr 

* $ffc3 

[ dose 

1 

f 996 : 

a2 

00 


Idx 

#$00 



f 9 98 : 

20 

c9 

f f 

jsr 

* $ffc9 

[ ckout 

] 

f 99b : 

bO 

Oa 


bes 

* $f 9a7 



f 99d: 

a9 

55 


Ida 

#$55 



f 99f : 

20 

d2 

ff 

jsr 

* $ffd2 

[ bsout 

] 

f 9a2: 

a9 

49 


Ida 

#$49 



f 9a4 : 

20 

d2 

ff 

jsr 

* $ffd2 

[ bsout 

1 

f 9a7 : 

20 

CC 

ff 

jsr 

* $ffcc 

[ clrch 

1 

f 9aa: 

a9 

00 


Ida 

#$00 



f 9ac: 

38 



sec 




f 9ad: 

20 

c3 

f f 

jsr 

* $ffc3 

( dose 

) 

f 9b0: 

68 



pia 




f 9bl : 

28 



plp 




f 9b2 : 

60 



rts 




RESET 

DI 

TRACCIA E SETTORE 



f 9b3 : 

a6 

c2 


ldx 

$c2 

[ stah ] 

1 

f 9b5: 

e8 



inx 




f 9b6 : 

eO 

15 


cpx 

#$15 



f 9b8: 

90 

04 


bcc 

* $f9be 



f 9ba : 

a2 

00 


ldx 

#$00 



f 9bc : 

e6 

cl 


ine 

$cl 

[ track 

] 

f 9be: 

86 

c2 


stx 

$c2 

[ stah ] 

1 

f 9c0 : 

8a 



txa 




f 9cl : 

20 

fb 

f 9 

jsr 

* $f 9fb 



f 9c4 : 

8d 

00 

01 

sta 

$0100 



f 9c7: 

8e 

01 

01 

stx 

$0101 



f 9ca : 

a5 

cl 


Ida 

$cl 

[ track 

] 

f 9cc: 

20 

fb 

f 9 

jsr 

* $f9fb 



f 9cf : 

8d 

03 

01 

sta 

$0103 



f 9d2 : 

8e 

04 

01 

stx 

$0104 



f 9d5: 

a2 

00 


ldx 

#$00 



f 9d7 : 

20 

c9 

ff. 

jsr 

* $ffc9 

[ ckout 

] 

f 9da: 

a2 

Oc 


ldx 

#$0c 



f 9dc : 

bd 

00 

01 

Ida 

$0100,x 



f 9df : 

20 

d2 

ff 

jsr 

* $ffd2 

[ bsout 

] 

f 9e2 : 

ca 



dex 




f 9e3: 

10 

f 7 


bpl 

* $f 9dc 



f 9e5 : 

20 

CC 

ff 

jsr 

* $ffcc 

[ clrch 

) 

f 9e8: 

a2 

Od 


ldx 

#$0d 



f 9ea: 

20 

c6 

ff 

jsr 

* $ffc6 

[ chkin 

] 

f 9ed : 

a0 

00 


ldy 

#$00 




Vai a vettore kernal LOAD 
Fissa pag. 0 per PC HI 
Q.s. in $0B 

Fissa il punt. di pag. 0 al valore di 
$0f (banco) 

Vai a rout. JSRFAR 
Esegui un clear di carry 


Salva STATUS su Stack 
Salva A su Stack 
Vai a CLRCH 

Chiudi n. di file logico 

Clear di carry per OK 

Vai a rout. CLOSE 

Fissa per output file logico 

Vai a rout. CKOUT 

Se rii. errore chiudi 

Metti in A carattere U 

Vai a .BSOUT 

I in A 

Vai a rout. BSOUT 

Vaia rout. CLRCH 

Chiudi n. di file logico 

Fissa carry per OK 

Vai a rout. CLOSE 

Metti in A cont. di Stack 

Ripristina Status 


N. di settore da pag. 0 

Incrementa settore di 1 

Contr. di validità' per settore 

OK se n.settore <21 

Carica vai. per n.settore =0 

Incrementa n.traccia 

N. settore = a pag. 0 

Copia n. sett. in A e converti il 

settore in 2-byte ascii 

Metti n. settoreLO in buffer DOS 

N. settore HI in buffer DOS 

Metti n. traccia in A 

Converti traccia in 2 Bytes ASCII 

N. traccia LO in buffer DOS 

N. traccia HI in buffer DOS 

Fissa file logico n.O da CKOUT 

Vai a rout. CKOUT 

Preleva 13 car. da buffer DOS 

1 carattere da buffer output 

Vai a rout. BSOUT 

Decrementa cont.buffer DOS per 13 

volte per uscita caratteri 

Vai a rout. CLRCH 

Fissa file logico per INPUT 

Vai a CHKIN 

Posiz. a vai. 0 per STASH 





Il Sistema Operativo del Commodore 126 


Pag. 


125 


f 9ef : 

20 

cf ff 

jsr 

* $ffcf [ 

basin ) 

f 9f 2 : 

20 

bc f 7 

jsr 

* $f7bc 


f 9f 5 : 

c8 


iny 



f 9f 6 : 

d0 

fi 

bne 

* $f9ef 


f 9f 8 : 

4c 

cc f f 

jmp 

* $ffcc [ 

clrch ] 

f 9f b : 

a2 

30 

ldx 

#$30 


f 9fd: 

38 


sec 



f 9fe: 

e9 

0a 

sbe 

#$0a 


faOO: 

90 

03 

bcc 

* $fa05 


f aO 2 : 

e8 


inx 



f aO 3 : 

bO 

f 9 

bes 

* $f9fe 


fa05: 

69 

3a 

adc 

#$3a 


f a06 : 

60 


rts 



COSTANTI 

KERNAL 

PER 

BOOT-LOAD 



f a08 : 

30 

30 

20 

31 30 

20 30 20 


falO : 

33 

31 

3a 

31 55 

49 23 


ROUTINE KERNAL 

PRIMM 


f al7 : 

48 



pha 



fai 8 : 

8a 



txa 



f al9 : 

48 



pha 



f ala : 

98 



tya 



falb: 

48 



pha 



f ale: 

aO 

00 


ldy 

#$00 


f ale : 

ba 



tsx 



falf : 

f e 

04 

01 

ine 

$0104,x 


f a22 : 

d0 

03 


bne 

* $fa27 


f a24 : 

f e 

05 

01 

ine 

$0105,x 


f a27 : 

bd 

04 

01 

Ida 

$0104,x 


f a2a : 

85 

ce 


sta 

$ce [ 

imparm ] 

f a2c : 

bd 

05 

01 

Ida 

$0105,x 


f a2f : 

85 

cf 


sta 

$cf [ 

imparm+1J 

f a31 : 

bl 

ce 


Ida 

($ce),y [ 

imparm ] 

fa33 : 

fO 

05 


beq 

* $fa3a 


f a35 : 

20 

d2 

ff 

jsr 

* $ffd2 [ 

bsout ] 

f a3 8 : 

90 

e4 


bcc 

* $fale 


f a3a : 

68 



pia 



f a3b : 

a8 



tay 



f a3c : 

68 



pia 



f a3d : 

aa 



tax 



f a3e : 

68 



pia 



f a3f : 

60 



rts 



ROUTINE NMI 





f a40 : 

d8 



cld 



fa41 : 

a9 

7 f 


Ida 

#$7 f 


f a4 3 : 

8d 

Od 

dd 

sta 

* $dd0d 


f a46 : 

ac 

Od 

dd 

ldy 

* $dd0d 


f a49 : 

30 

14 


bmi 

* $fa5f 


fa4b: 

20 

3d 

f 6 

jsr 

* $f63d 


f a4e : 

20 

el 

ff 

jsr 

* $ffel [ 

stop ] 

f a51 : 

dO 

Oc 


bne 

* $fa5f 


f a5 3 : 

20 

56 

e0 

jsr 

* $e056 


f a56 : 

20 

09 

el 

jsr 

* $el09 


f a59 : 

20 

00 

cO 

jsr 

* $c000 



Vaia a rout. BASIN 
Vai a STASH 
Incrementa punt. STASH 
Esegui q.s. per 256 bytes letti 
Vai a rout. CLRCH 
Valore ASCII per 0 in X 
Fissa Carry per sottrazione 
Sottrai 10 (in dee) da A 
Esegui un clear di carry 
Incrementa car. ASCII di 1 
Salto incondizionato a $$F9FE 
Crea ASCII LO 


Metti conten. di A su Stack 

Salva cont. att. reg. X sullo Stack 

tramite Accumulatore 

Salva attuale cont. reg. Y sullo 

Stack a mezzo Accumulatore 

Carica spost. puntatore con $00 

Trasf. Stack in X 

Incr.byte LO di ind. RTS in Stack 

Contr.overflow,se nessun overfl.salta 

Incr.byte HI di ind. RTS in Stack 

Metti byte LO di ind. RTS di Stack 

in pag. 0 

Come sopra per ind. HI 
*★* 

Byte da ind.RTS + reg.Y in A 
Contr. se $00 
Vai a rout. kernal BSOUT 
Se nessun errore prossimo carattere 
Prendi un byte da Stack e ripristina 
vecchi contenuti di Y 
Come sopra per X 
*** 

Ripristina vecchi cont. A 


Resetta modo decimale 

Fissa segnalatore NMI 

Esegui un clear su NMI 

Lettura e clear dei Flags 

Controlla se RS-232 e' attiva 

Leggi RUN/STOP in modo SHIFT 

Vai a routine per STOP. Contr.ta'sto 

Se tasto STOP non premuto,vai a I/O 

Vettori standard per I/O + interrupt 

Inizializza I/O 

Inizializza I/O e clear di schermo 
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f a5c : 
f a5f : 
f a62 : 

6c 

20 

4c 

00 

05 

33 

Oa 

e8 

ff 

jmp 

jsr 

jmp 

($0a00) 

* $e805 

* $ff33 

ROUTINE IRQ 





f a65 : 

de 



cld 



f a66 : 

20 

24 

cO 

jsr 

* 

$c024 

fa69 : 

90 

12 


bcc 

* 

$fa7d 

fa6b: 

20 

f 8 

f 5 

jsr 

* 

$f 5f 8 

f a6e : 

20 

dO 

ee 

jsr 

* 

$eed0 

f a71 : 

ad 

Od 

de 

Ida 

★ 

$dc0d 

fa74: 

ad 

04 

Oa 

Ida 

$0a04 

tali-. 

4a 



lsr 

a 


f a78 : 

90 

03 


bcc 

* 

$fa7d 

f a7a : 

20 

06 

40 

jsr 

$4006 

f a7d : 

4c 

33 

ff 

jmp 

* 

$f f 33 


TAVOLA DI DECODIFICA TASTIERA SET DI 


f a80 : 

14 

Od 

ld 

88 

85 

86 

87 

11 

f a8 8 : 

33 

57 

41 

34 

5a 

53 

45 

01 

f a90 : 

35 

52 

44 

36 

43 

46 

54 

58 

fa98: 

37 

59 

47 

38 

42 

48 

55 

56 

faaO : 

39 

49 

4a 

30 

4d 

4b 

4f 

4e 

f aa8 : 

2b 

50 

4c 

2d 

2e 

3a 

40 

2c 

fabO: 

5c 

2a 

3b 

13 

01 

3d 

5e 

2f 

fab8 : 

31 

5f 

04 

32 

20 

02 

51 

03 

f acO : 

84 

38 

35 

09 

32 

34 

37 

31 

f ac8 : 

lb 

2b 

2d 

0a 

Od 

36 

39 

33 

fadO: 

08 

30 

2e 

91 

11 

9d 

ld 

ff 

f ad8 : 

ff 









TAVOLA DI DECODIFICA TASTIERA SET DI 


f ad9 : 

94 

8d 

9d 

8c 

89 

8a 

8b 

91 

f ael : 

23 

d7 

cl 

24 

da 

d3 

c5 

01 

f ae9 : 

25 

d2 

c4 

26 

c3 

c6 

d4 

d8 

faf 1 : 

27 

d9 

c7 

28 

c2 

c8 

d5 

d6 

f af 9 : 

29 

c9 

ca 

30 

cd 

cb 

cf 

ce 

f bOl : 

db 

dO 

cc 

dd 

3e 

5b 

ba 

3c 

f b09 : 

a9 

cO 

5d 

93 

01 

3d 

de 

3f 

fbll : 

21 

5f 

04 

22 

aO 

02 

di 

83 

f bl 9 : 

84 

38 

35 

18 

32 

34 

37 

31 

f b21 : 

lb 

2b 

2d 

Oa 

8d 

36 

39 

33 

f b29 : 

08 

30 

2e 

91 

11 

9d 

ld 

ff 

f b31 : 

ff 









TAVOLA DI DECODIFICA TASTIERA SET DI 


Ingresso WARM START del basic 
Vai a rout. NMI per RS-232 
Ritorna a rout. di chiamata IRQ 


Esegui un reset del modo decimale 
Ingresso a editor routine IRQ 
Uscita di IRQ per raster interrupt 
Vai a UDTIM 

Controllo nastro tastiera 
Carica reg. contr. interrupt CIA 
Carica punt. di status NMI/reset 
Controlla se bit 0 e' meso a =0 
Se pos. ritorna a IRQ 
Ingresso Basic per IRQ 
Vai a rout. di chiamata per IRQ 

CARATTERI ASCII 


CARATTERI ASCII + SHIFT 


CARATTERI ASCII + TASTO COMMODORE 


fb32: 94 8d 9d 8c 89 8a 8b 91 
fb3a: 96 b3 bO 97 ad ae bl 01 
fb42: 98 b2 ac 99 bc bb a3 bd 
fb4a: 9a b7 a5 9b bf b4 b8 be 
fb52: 29 a2 b5 30 a7 al b9 aa 
fb5a: a6 af b6 de 3e 5b a4 3c 
fb62: a8 df 5d 93 01 3d de 3f 








f b6a : 

81 

5f 

04 

95 

aO 

02 

ab 

03 






f b72 : 

84 

38 

35 

18 

32 

34 

37 

31 






f b7a: 

lb 

2b 

2d 

Oa 

8d 

36 

39 

33 






f b82 : 

08 

30 

2e 

91 

11 

9d 

ld 

ff 






fb8a: 

ff 













TAVOLA DI 

: DECODIFICA 

TASTIERA 

SET 

DI 

CARATTERI 

ASCII 

+ CTRL 

f b8b : 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 






f b93 : 

le 

17 

01 

9f 

la 

13 

05 

ff 






f b9b : 

9c 

12 

04 

le 

03 

06 

14 

18 






fba3 : 

lf 

19 

07 

9e 

02 

08 

15 

16 






fbab: 

12 

09 

Oa 

92 

Od 

Ob 

Of 

Oe 






f bb3 : 

ff 

10 

Oc 

ff 

ff 

lb 

00 

ff 






fbbb: 

le 

ff 

ld 

ff 

ff 

lf 

le 

ff 






fbc3 : 

90 

06 

ff 

05 

ff 

ff 

ii 

ff 






fbcb: 

84 

38 

35 

18 

32 

34 

37 

31 






fbd3 : 

lb 

2b 

2d 

Oa 

8d 

36 

39 

33 






fbdb: 

08 

30 

2e 

91 

11 

9d 

ld 

ff 






fbe3 : 

ff 













TAVOLA DI DECODIFICA 

TASTIERA 

SET 

DI 

CARATTERI 

ASCII 

+ ALT 


f be4 : 

14 

Od 

ld 

88 

85 

86 

87 

11 

fbec: 

33 

d7 

cl 

34 

da 

d3 

c5 

01 

fbf 4 : 

35 

d2 

c4 

36 

c3 

c6 

d4 

d8 

fbfc: 

37 

d9 

c7 

38 

c2 

c8 

d5 

d6 

f c04 : 

39 

c9 

ca 

30 

ed 

cb 

cf 

ce 

fcOc: 

2b 

dO 

ce 

2d 

2e 

3a 

40 

2c 

fcl4: 

5c 

2a 

3b 

13 

01 

3d 

5e 

2f 

f eie : 

31 

5f 

04 

32 

20 

02 

51 

03 

f c24 : 

84 

38 

35 

09 

32 

34 

37 

31 

f c2c : 

lb 

2b 

2d 

Oa 

Od 

36 

39 

33 

f c3 4 : 

08 

30 

2e 

91 

11 

9d 

ld 

ff 

f c3c: 

ff 








ZONA 

LIBERA 

DA 

$FC3D 

A : 

$FEFF 


f f 00 : 

00 

3f 

7f 

01 41 



ROUTINE KERNAL 

NMI 



f f 05 : 

78 



sei 


Disabilita tutti interrupt 

f f 06 : 

48 



pha 


Immag. cont. di A su Stack 

f f 07 : 

8a 



txa 


Trasf. cont. reg. X sullo Stack 

f f 08 : 

48 



pha 


tramite 1 ' Accumulatore 

f f09 : 

98 



tya 


Come sopra ma per il registro Y 

ff Oa: 

48 



pha 


*** 

ffOb: 

ad 

00 

ff 

Ida 

* SffOO 

Metti in A registri configurazione 

ff Oe: 

48 



pha 


Immag. registri config. su Stack 

ffOf : 

a9 

00 


Ida 

#$00 

Metti $00 nei reg. di config. 

ffll : 

8d 

00 

ff 

sta 

* SffOO 

Abilita tutti i sistemi ROM 

f f 14 : 

6c 

18 

03 

jmp 

($0318) 

Vai a vettore diNMI ($FA40) 


ROUTINE KERNAL IRQ 
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f f 17 : 

48 



pha 




Immag. cont. di A su Stack 

f f 18 : 

8a 



txa 




Trasf. contenuti reg. X su Stack 

f f 19 : 

48 



pha 




tramite 1 ' Accumulatore 

f f la : 

98 



tya 




Come sopra ma per registro Y 

fflb: 

48 



pha 




★ * * 

f f le: 

ad 

00 

ff 

Ida 

* 

$ffOO 


Metti in A registri configurazione 

fflf : 

48 



pha 




Immag. registri config. su Stack 

f f 20 : 

a9 

00 


Ida 

#$00 


Metti $00 nei reg. di config. 

f f 22 : 

8d 

00 

ff 

sta 

* 

$ffOO 


Abilita le ROM di sistema 

f f 25 : 

ba 



tsx 




Metti cont. di Stack su reg. X 

f f26: 

bd 

05 

01 

Ida 

$0105,x 


Carica in A byte di Status di CPU 

f f 29 : 

29 

10 


and 

#$10 


Esegui un AND log. con bit di break 

f f 2b: 

fO 

03 


beq 

★ 

$ff 30 


Se nessun break continua normal. 

f f 2d : 

6c 

16 

03 

jmp 

($0316) 


Salta al vettore di BRK ($B003) 

f f 30 : 

6c 

14 

03 

jmp 

($0314) 


Salta al vettore di IRQ ($FA65) 

ff 33: 

68 



pia 




Prel. vai. prec. di config. da Stack 

f f 34 : 

8d 

00 

ff 

sta 

* 

$ff00 


Ripristina config. selezionata prec. 

ff 37 : 

68 



pia 




Prel. un Byte dallo Stack e ripristina 

f f 38 : 

a8 



tay 




cont. prec. di Y 

f f 39 : 

68 



pia 




Come sopra per registro X 

f f 3a : 

aa 



tax 




* * ★ 

f f 3b : 

68 



pia 




Riprist. cont. prec. di A 

ff 3c: 

40 



rti 




******* 

ROUTINE KERNAL 

DI RESET 



f f 3d : 

a9 

00 


lda 

#$00 


Metti $00 nei reg. di configurazione 

f f 3f : 

8d 

00 

ff 

sta 

* 

$ff00 


Abilita tutte le ROM di sistema 

f f 42 : 

4c 

00 

eO 

jmp 

* 

$e000 


Questa zona di memoria contiene i 

f f 4 5 : 

ff 

ff 

4c 

XXX 

$4cf f 


puntatori a FSTMOD, EAINIT, C64-MODE 

f f 48 : 

fb 

e5 

4c 

XXX 

$4ce5 


DMA-CALL 

f f 4b : 

3d 

f 2 

4c 

and 

$4cf2 ,x 



f f 4e : 

4b 

e2 

4c 

XXX 

$4ce2 



f f 51 : 

a5 

f 7 


lda 

$f 7 

[ locks ] 


f f 53 : 

4c 

90 

f 8 

jmp 

★ 

$f 890 


Puntatore a BOOT-CALL 

f f 56 : 

4c 

67 

f 8 

jmp 

* 

$f 867 


Puntatore a PHOENIX 

f f 59 : 

4c 

9d 

f 7 

jmp 

* 

$f 79d 


Puntatore a LUKUPLA 

f f 5c : 

4c 

86 

f 7 

jmp 

★ 

$f 786 


Puntatore a LKUPSA 

f f 5f : 

4c 

2a 

cO 

jmp 

* 

$c02a 


Puntatore a SWAPPER 

f f 62 : 

4c 

27 

cO 

jmp 

* 

$c027 


Puntatore a DLCHR 

f f 65 : 

4c 

21 

cO 

jmp 

* 

$c021 


Puntatore a PFKEY 

f f 68 : 

4c 

3 f 

ti 

jmp 

★ 

$f 73f 


Puntatore a SETBANK 

f f 6b : 

4c 

ec 

ti 

jmp 

* 

$f 7ec 


Puntatore a GETCFG 

f f 6e : 

4c 

cd 

02 

jmp 

* 

$02cd 


Puntatore a JSRFAR 

f f 71 : 

4c 

e3 

02 

jmp 

* 

$02e3 


Puntatore a JMPFAR 

f f 74 : 

4c 

dO 

fi 

jmp 

* 

$f 7d0 


Routine INDFET 

ff 77 : 

4c 

da 

fi 

jmp 

* 

$f 7da 


Routine INDSTA 

f f 7a : 

4c 

e3 

fi 

jmp 

* 

$f 7e3 


Routine INDCMP 

ff 7d: 

4c 

17 

fa 

jmp 

* $fal7 Puntatore a PRIMM 

f f 80 : 

00 



brk 





f f 81 : 

4c 

00 

cO 

jmp 

* 

$c000 


Puntatore a CINT 

f f 84 : 

4c 

09 

el 

jmp 

★ 

$el09 


Puntatore a IOINIT 

f f 87 : 

4c 

93 

eO 

jmp 

* 

$e093 


Puntatore a RAMTAS 

ff 8a: 

4c 

56 

eO 

jmp 

★ 

$e056 


Puntatore a RESTORE 

f f 8d : 

4c 

5b 

eO 

jmp 

* 

$e05b 


Puntatore a VECTOR 

f f 90 : 

4c 

5c 

f 7 

jmp 

* 

$f 75c 


Puntatore a SETMSG 

f f 9 3 : 

4c 

d2 

e4 

jmp 

* 

$e4d2 


Routine SECND 

f f 96 : 

4c 

eO 

e4 

jmp 

* 

$e4e0 


Routine TKSA 
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f f 99 : 

4c 

63 

f 7 

jmp 

* $f763 


Puntatore a MEMTOP 


f f 9c : 

4c 

72 

f 7 

jmp 

* Sf772 


Puntatore a MEMBOT 


f f 9f : 

4c 

12 

cO 

jmp 

* $c012 


Puntatore a KEY 


f f a2 : 

4c 

5f 

11 

jmp 

* $f75f 


Puntatore a SETTMO 


f f a5 : 

4c 

3e 

e4 

jmp 

* $e43e 


Puntatore a ACPTR 


f f a8 : 

4c 

03 

e5 

jmp 

* $e503 


Puntatore a CIOUT 


ffab: 

4c 

15 

e5 

jmp 

* $e515 


Routine UNTLK 


f fae: 

4c 

26 

e5 

jmp 

* $e526 


Routine UNLSN 


ffbl: 

4c 

3e 

e3 

jmp 

* $e33e 


Routine LISTN 


f f b4 : 

4c 

3b 

e3 

jmp 

* $e33b 


Routine TALK 


f f b7 : 

4c 

44 

f 7 

jmp 

* $f744 


Routine READST 


f fba : 

4c 

38 

f 7 

jmp 

* $f738 


Routine SETLFS 


ffbd: 

4c 

31 

f 7 

jmp 

* $f731 


Routine SETNAM 


f fcO: 

6c 

la 

03 

jmp 

($031a) 


Vettore a routine OPEN 

($EFBD) 

f f c3 : 

6c 

le 

03 

jmp 

($03 le ) 


Vettore a routine CLOSE 

($F188) 

f fc6 : 

6c 

le 

03 

jmp 

($031e ) 


Vettore a routine CHKIN 

( $ FI 0 6 ) 

f fc9 : 

6c 

20 

03 

jmp 

($0320) 


Vettore a routine CKOUT 

($F14C) 

f fcc: 

6c 

22 

03 

jmp 

($0322) 


Vettore a routine CLRCH 

( $ F2 2 6 ) 

ffcf : 

6c 

24 

03 

jmp 

($0324) 


Vettore a routine BASIN 

($EF0 6) 

f fd2 : 

6c 

26 

03 

jmp 

($0326) 


Vettore a routine BSOUT 

($EF7 9) 

f f d5 : 

4c 

65 

f 2 

jmp 

* $f265 


Routine LOADSP 


f f d8 : 

4c 

3e 

f 5 

jmp 

* $f53e 


Routine SAVESP 


ffdb: 

4c 

65 

f 6 

jmp 

* $f665 


Puntatore a SETTIM 


f f de : 

4c 

5e 

f 6 

jmp 

* $f65e 


Puntatore a RDTIM 


ffel : 

6c 

28 

03 

jmp 

($0328) 


Vettore a routine STOP 

($F66E) 

f f e4 : 

6c 

2a 

03 

jmp 

($032a) 


Vettore a routine GETIN 

($EEEB) 

f f e7 : 

6c 

2c 

03 

jmp 

($032c) 


Vettore a routine CLALL 

($F2 22) 

f fea: 

4c 

f 8 

f 5 

jmp 

* $f5f8 


Routine UDTIM 


f f ed : 

4c 

Of 

cO 

jmp 

* $c00f 


Puntatore a SCRORG 


f f f 0 : 

4c 

18 

cO 

jmp 

* $c018 


Puntatore a PLOT 


f f f 3 : 

4c 

81 

f 7 

jmp 

* $f781 


Puntatore a IOBASE 


f f f 6 : 

ff 

ff 

24 

XXX 

$24f f 


Vettore modo 128 


fff 9: 

e2 

05 


XXX 

$05 [ 

| s-reg ] 

Vettore NMI 


fffb: 

ff 

3d 

ff 

XXX 

* $ff3d 


Vettore di reset 


f ffe: 

17 

f f 


XXX 

$ff I 

lofbuf ] 

Vettore di IRQ 
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LA PAGINA ZERO 


L' indirizzamento assoluto e' espresso in 
termini di byte di ordine alto e ordine 
basso. Il byte alto e' chiamato anche di 
indirizzamento perche' si riferisce all' 
indirizzamento di una pagina di memoria. Per 
esempio l'indirizzo $1365 e' in pagina $16 
mentre 1' indirizzamento di $0345 e' in 
pagina $03. 

C' e' tuttavia un modo di indirizzamento 
chiamato INDIRIZZAMENTO IN PAGINA ZERO in cui 
il byte alto e' sempre di 00 perche' 
indirizza appunto in pagina 0. 

Ciò' consente un tempo operativo del 
microprocessore molto piu' veloce ed un' 
occupazione di memoria inferiore priprio 
perche' adopera solo un byte invece di 2. 

La pagina zero, che va da $0000 a $00FF e' 
impiegata dal Sistema Operativo nella maniera 
piu' completa possibile per le variabili di 
sistema. Tuttavia per il C128 non e' 
sufficiente a contenere le informazioni 
necessarie e perciò ' si e ' ritenuto 
necessario commentare anche altre pagine. 

La pagina 0 (e seguenti) offre molte 
possibilità' alle eventuali manipolazioni del 
programmatore, anche perche' e' strettamente 
collegata alle corrispondenti routines 
KERNAL. 

Oltre agli indirizzi esa, decimale ed alla 
spiegazione e' riportato anche la LABEL che 
evidenzia il collegamento con lo stesso S.O. 
visto.nelle pagine precedenti. 



Il Sistema Operativo del Commodore 128 


Indirizzi 

Label 

0000: 

0000 

d6510 

0001 : 

0001 

r6510 

0002: 

0002 

bank 

0003: 

0003 

pc-hi 

0004: 

0004 

pc-lo 

0005: 

0005 

s-reg 

0006: 

0006 

a-reg 

0007: 

0007 

x-reg 

0008: 

0008 

y-reg 

0009: 

0009 

charac 

OOOa : 

0010 

endchr 

OOOb: 

0011 

trmpos 

OOOc : 

0012 

verchk 

OOOd : 

0013 

count 

OOOe : 

0014 

domask 

OOOf : 

0015 

valtyp 

0010: 

0016 

intflag 

0011 : 

0017 

garbf1 

0012: 

0018 

subflg 

0013: 

0019 

inpflg 

0014: 

0020 

domask 

0015: 

0021 

channl 

0016: 

0022-0023 

linnum 

0018: 

0024 

tempot 

0019: 

0025-0026 

lastpt 

OOlb : 

0027-0029 

tempst 

OOle: 

0030-0032 

tempst+3 

0021: 

0033-0035 

tempst+6 

0024: 

0036-0037 

hindexl 

0026: 

0038-0039 

hindex2 

0028: 

0040-0044 

resho 

002d : 

0045-0046 

txttab 

002f : 

0047-0048 

vartab 

0031: 

0049-0050 

arytab 

0033: 

0051-0052 

strend 

0035: 

0053-0054 

fretop 

0037: 

0055-0056 

frespc 

0039: 

0057-0058 

max-mem 

003b : 

0059-0060 

curlin 

003d : 

0061-0062 

txtptr 

003f : 

0063-0064 

f orm 

0041: 

0065-0066 

datlin 

0043: 

0067-0068 

dataptr 

0045: 

0069-0070 

inpptr 

0047: 

0071-0072 

varnam 

0049: 

0073-0074 

fdecpt 

004b: 

0075-0076 

andmsk 

004d: 

0077-0078 

vartxt 

004f : 

0079 

oppmask 

0050: 

0080-0081 

grbpnt 

0052 : 

0082-0084 

dscpnt 

0055: 

0085 

helper 

0056: 

0086-0087 

jmper 

0058: 

0088 

oldov 

0059: 

0089 

tempf1 

005a : 

0090-0091 

arypnt 
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6510 direzione dati 
6510 registro di uscita 
Locazione per numero del banco 
Loc. di salv. Program Counter alto 

Program Counter byte basso 

Registro di Stato 

Accumulatore 

Registro X 

Registro Y 

Puntatore dello Stack 
Flag di ricerca apici a fine stringa 
Colonna video dopo ultimo TAB 
Flag disco: 0=LOAD, 1=VERIFY 
Puntatore Buffer Ingresso:Num.indice 
Segno di tangente 

Flag categ. dati:$FF=STRINGA $0=NUM. 

$80=INTERO $0=virgola mob 
per GARBAGE COLLECTION 
Puntatore per funzione utente (FN) 

FI. input :$00=INPUT:$40=get:$98=read 
Flag per segno TAN/confronto risult. 
Flag per periferiche attive in input 
Numero di linea,valore intero . 

Punt. tempor. allo stack di stringa 
Indirizzo dell 'ultima stringa 
3 bytes per stringhe temporanee. 

3 bytes per stringhe temporanee 
3 bytes per stringhe temporanee 
Puntatore per help 1 
Puntatore per help 2 
Ris.in virgola mobiledi una moltip. 
Puntatore inizio BASIC 
Puntatore inizio VARIABILI 
Puntatore inizio MATRICI 
Puntatore fine MATRICI +1 
Puntatore inizio STRINGHE 
Punt. di aiuto per immagaz. stringhe 
Puntatore fine memoria,Var.Banco 1 
Numero della linea BASIC attuale. 
Punt. testo BASIC per CHRGET,CHRGOT 
Punt. per PRINT USING. 

Numero di line del DATA attuale. 
Punt. dell'indiriz. del DATA attuale 
Vettore per la routine di INPUT. 

Nome dell'attuale variabile 
Punt. all 'indir, dell 'attuale variab 
Mask per AND/punt.LIST/punt FOR next 
Immagaz. temp. per punt. programma 
Mask per comparazione >:2,=:4,<:8 
Punt. var per funz. FN 
Punt. descr. var LIST-string compar. 
Flag aiuto: $xx=HELP, $xx=LIST 
Vettore di salto per funzione cale. 
*** 

Area per operazioni INSTRING 
Punt. trasf. blocchi,iniziai. DIM 
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Indirizzi Label 


005c 

0092-0093 

hightr 

00 5e 

0094 

tempf 2 

005f 

0095-0096 

pdec 

0061 

0097 

lowtr 

0062 

0098 

expsgn 

0063 

0099 

fac 

0064 

0100-0103 

rightflag 

0068 

0104 

facsgn 

0069 

0105 

degree 

006a 

0106 

argexp 

006b 

0107-0110 

argho 

006f 

Olii 

argsgn 

0070 

0112 

strngl 

0071 

0113 

f acov 

0072 

0114-0115 

strng2 

0074 

0116-0117 

autinc 

0076 

0118 

mvdflg 

0077 

0119 

noze 

0078 

0120 

hulp 

0079 

0121 

syntmp 

007a 

0122-0124 

dsdec 

007d 

0125-0126 

tos 

007f 

0127 

runmod 

0080 

0128 

parsts 

0081 

0129 

parstx 

0082 

0130 

oldstk 

0083 

0131 

colsel 

0084 

0132 

multicolori 

0085 

0133 

multicolor2 

0086 

0134 

foreground 

0087 

0135-0136 

scalex 

0089 

0137-0138 

scaley 

008b 

0139 

stopnb 

008c 

0140-0141 

grapnt 

008e 

0142 

vtempl 

008f 

0143 

vtemp2 

0090 

0144 

status 

0091 

0145 

stkey 

0092 

0146 

svxt 

0093 

0147 

verck 

0094 

0148 

c3p0 

0095 

0149 

bsour 

0096 

0150 

syno 

0097 

0151 

xsav 

0098 

0152 

ldtnd 

0099 

0153 

dflfor 

009a 

0154 

df Ito 

009b 

0155 

prty 

009c 

0156 

dpsw 

009d 

0157 

msgflg 

009e 

0158 

ptrl 

009f 

0159 

ptr2 

OOaO 

0160-0162 

time 

00a3 

0163-0164 

pcntr 

00a5 

0165 

cntdn 

00a6 

0166 

buf pt 


Punt. trasferimento blocchi 

Punt. temp 2 per operaz. occas.inVM 

N.pos. dee. per conversione 

Punt. dee per lettura numeri 

Esponente del segno 

FAC accumulatore 1 : esponente 

FAC accumulatore 1 : mantissa 

FAC ' 1 : segno 

FAC valutazione polinomi 

FAC 2 esponente 

FAC 2 mantissa 

FAC 2 segno 

Flag risult. tra acc 1 e acc 2 
Virgola mobile accumulatare 1 
Puntatore al buffer della cassetta 
Valore di offset per AUTO $00=off 
Flag per Hires:l=Iniz. Basic +10K. 
Contatore n. sprites 
Contatore di aiuto 

Locar. temp. per lettura indiretta. 
Descrizione della Variab. DS$ 

Fine dello stack durante il run. 

Flag :modo RUNo DIRETTO 
DOS parser status word 
*** 

* * * 

Colore corrente in modo grafico 
Modo multicolore : colore 1 
Modo multicolore: colore 2 
Colore dello sfondo 
Fattore di scala nella direz. X 
Fattore di scala nella direz. Y 
Termina Disegno se diverso colore. 
Punt. di indirizzo per routine graf. 
Loc. temp. per rout. grafiche, 
loc. temp. per routine grafiche 
Byte <^i stato per operazioni di I/O 
Flag di stop -.Tasto STOP,tasto RVS 
Costante di tempo per cassetta. 

Flag di load: $00=LOAD,$01=VERIFY 
Flag seriale carattere nel buffer 
Carattere nel buffer per bus seriale 
Sincroniz. per cassetta 
Indirizzo temporaneo dati 
Indice per file :num. di files aper. 
Standard per ingresso dati :(0=tast) 
Standard uscita dati :(3=schermo) 
carattere di parità del nastro 
Flag: ricevuto byte dal nastro 
Flag di messaggio dal Kernel 
Errore logico da nastro:passo 1 
Errore logico da nastro: passo 2 
Orologio in tempo reale da 24 ore. 
Locaz. temporanea per bua seriale 
Contat. per bit nastro in Save 
Puntatore al buffer cassetta 
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Indirizzi 

Label 


00a7 : 

0167 

shcnl 

RS232 bits di ingresso 

00a8 : 

0168 

bitci 

RS232 contatore bit in ingresso 

00a9 : 

0169 

rinone 

RS232 flag di inizio per bit 

OOaa : 

0170 

rdf lg 

RS232 byte del buffer ingresso dati 

OOab: 

0171 

riprty 

Rs232 parità di ingresso. 

OOac : 

0172-0173 

sai 

Punt. scroll schermo/buff-cassetta 

OOae : 

0174-0175 

eal 

Punt. fine prog./fine cassetta. 

OObO : 

0176-0177 

cmpO 

Costante di tempo per cassetta 

00b2 : 

0178-1079 

tapel 

Punt. inizio del buffer cassetta 

0 0b4 : 

0180 

bitts 

RS232 prossimo bit per scroll 

00b5 : 

0181 

diff 

RS232 prossimo bit da inviare 

00b6 : 

0182 

P r P 

RS232 byte del buffer da inviare 

00b7 : 

0183 

f nlen 

Lunghezza del nome file corrente 

0 0b8 : 

0184 

la 

Numero del file (LFN) 

00b9 : 

0185 

sa 

Indirizzo secondario attuale 

OOba : 

0186 

fa 

numero della periferica attuale 

OObb : 

0187-0188 

f nadr 

Punt. indirizzo del nome file corre. 

OObd : 

0189 

roprty 

Rs232 parità di uscita 

OObe: 

0190 

fsblk 

Num. deirimanenti blocchi di R/W 

OObf : 

0191 

drive 

Buffer per porta seriale 

OOcO: 

0192 

casi 

Flag. motore della cassetta 

OOcl : 

0193 

track 

Indirizzo inizio in/out traccia 

00c2 : 

0194 

stah 

Indirizzo inizio in/out settore 

00c3 : 

0195-0196 

memuss 

Temp. di Load per cassetta 

00c5 : 

0197 

data 

Cassetta: read/write data 

00c6 : 

0198 

ba 

Num. banco per LOAD/SAVE/VERIFY 

00c7 : 

0199 

fnbank 

Num. del banco del nome file attua. 

00c8 : 

0200-0201 

ribuf 

RS232 puntatore buffer ingresso 

OOca : 

0202-0203 

robuf 

RS232 puntatore buffer uscita 

OOcc: 

0204-0205 

keytab 

Punt. decodifica tavola tastiera. 

OOce : 

0206-0207 

imparm 

Punt. posizione della stringa 

OOdO : 

0208 

ndx 

indice alla coda del buffer tastiera 

OOdl : 

0209 

kyndx 

Flag chiamata tasti funzione 

00d2 : 

0210 

keyidx 

Indice stringa tasto funzione 

00d3 : 

0211 

shflag 

Flag shift:Shift=l,C=2,Ctr1=4,old=8 

00d4 : 

0212 

sf dx 

Flag per tasto premuto 

00d5 : 

0213 

ltsx 

Flag del tasto attuale :0=nessuno 

0 0d6 : 

0214 

crsm 

Flag per INPUT o GET 

00d7 : 

0215 

mode 

Flag per 40/80 colonne 

00d8 : 

0216 

graphm 

Flag per schermo testo o grafico 

00d9 : 

0217 

charen 

Punt. al set di caratteri 

OOda : 

0218 

sedsal 

Puntatore per MOVLIN (basso) 

OOdb : 

0219 

keylen 

Puntatore per MOVLIN (alto) 

OOdc : 

0220 

keynum 

Numero del tasto funzione. 

OOdd : 

0221 

keynxt 

Lunghezza stringa attuale tasto funz 

OOde : 

0222 

keybnk 

Banco per tasto funzione 

OOdf : 

0223 

keytmp 

Lunghezza stringa tasto funzione 1 

OOeO : 

0224-0225 

pnt 

Punt. alla linea di schermo (testo) 

00e2 : 

0226-0227 

user 

Punt. linea di schermo(attribute) 

00e4 : 

0228 

scbot 

Bordo inferiore della finestra 

00e5 : 

0229 

se top 

Bordo superiore della finestra sche. 

00e6 : 

0230 

self 

Bordo sinistro della finestra 

00e7 : 

0231 

scrt 

Boedo destro della finestra 

00e8 : 

0232 

lsxp 

Colonna dell'attuale input: inizio 

00e9 : 

0233 

1 stp 

Linea dell 'attuale input : inizio 

OOea : 

0234 

indx 

Linea dell'attuale input : fine 



Il Sistema Operativo del Commodore 128 


Indirizzi 

Label 

OOeb: 

0235 

tblx 

OOec : 

0236 

pntr 

OOed: 

0237 

lines 

OOee : 

0238 

columns 

OOef : 

0239 

datax 

OOf 0 : 

0240 

lstchr 

OOf 1 : 

0241 

color 

OOf 2 : 

0242 

tcolor 

OOf 3 : 

0243 

rvs 

OOf 4 : 

0244 

qtsw 

OOf 5 : 

0245 

insrt 

OOf 6 : 

0246 

insflg 

OOf 7: 

0247 

locks 

OOf 9 : 

0248 

beeper 

OOf a : 

0249-0254 

frekzp 

OOff : 

0255 

lofbuf 


Pag. - 134 - 


linea attuale del cursore 
Colonna attuale del cursore 
Numero massimo delle linee schermo 
Numero massimo di colonne schermo 
Attuale carattere da visualizzare 
Precedente carattere stampato 
Colore sotto il cursore 
Salvataggio colore per INSERT/DELETE 
Flag attivazione modo reverse 
Flag attivazione virgolette 
Flag attivazione modo INSERT 
Flag attivazione modo auto insert 
Disabilitazione (c=)(shift) ctrl-s 
Disab. scrool schermo 
Area libera per 1 'utente 
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PAGINA UNO 


0100 

0256 - 

0271 

Area di 16 Byte per i nomi dei dati 

Olio 

0272 


Contatore ciclo per DOS 

Olii 

0273 


Lunghezza primo nome file per DOS 

0112 

0274 


Numero periferica per DOS, prima unita' dischi 

0113 

0275 - 

0276 

Indirizzo DOS, primo nome file LO/HI 

0115 

0277 


Lunghezza secondo nome file per DOS 

0116 

0278 


Numero periferica per DOS, seconda unita' dischi 

0117 

0279 - 

0280 

Indirizzo DOS, secondo nome file LO/HI 

0119 

0281 - 

0282 

Indirizzi partenza per BLOAD/BSAVE LO/HI 

01 lb 

0283 - 

0284 

Indirizzi di fine per BSAVE LO/HI 

01 ld 

0285 


Indirizzi logici DOS 

Olle 

0286 


Indirizzi fisici DOS 

Ollf 

0287 


Indirizzi secondari DOS 

0120 

0288 


Lunghezza record sempre per DOS 

0121 

0289 


Numero banco per DOS 

0122 

0290 - 

0291 

Zona di immagazz. per ID disco (2Bytes) 

0124 

0292 


Flag per controllo ID 


La zona seguente di memoria e' riservata per PRINT USING 


0125 

0293 

Puntatore a numero inizio 

0126 

0294 

Puntatore al numero di fine 

0127 

0295 

Flag per dollaro ($) 

0128 

0296 

Flag per virgola (,) 

0129 

0297 

Contatore del numero di comandi 

012a 

0298 

Segno dell ' esponente 

012b 

0299 

Puntatore dell' esponente 

012c 

0300 

Contatore per n.posizioni intere 

012d 

0301 

Flag per allineamento dopo il punto 

012e 

0302 

Contatore posizione campi prima del punto 

012f 

0303 

Come sopra ma PRIMa del punto decimale 

0130 

0304 

Flag per segno (+/-) 

0131 

0305 

Flag per campo esponente 

0132 

0306 

Interruttore per comando 

0133 

0307 

Contatore per caratteri nel campo 

0134 

0308 

Numero dei segni 

0135 

0309 

Flag per spazio o asterisco 

0136 

0310 

Puntatore per inizio campo 

0137 

0311 

Puntatore per lunghezza formato 

0138 

0312 

Puntatore per fine campo 


0139 

0313 

- 0510 

Stack di sistema 

punto di 

fine 

Olff 

0511 


Stack di sistema 

punto iniziale 

0200 

0512 


Buffer ingresso monitor e 

BASIC 

02a2 

0674 

- 0686 

Routine FETCH 



02af 

0687 

- 0701 

Routine STASH 



02be 

0702 

- 0716 

Routine CMPARE 



02cd 

0717 

- 0738 

Routine JSRFAR 



0 2e3 

0739 


Routine JMPFAR 



02f c 



Disabilita tutti 

gli interrupt 

02fd 



Salta al vettore 

funzione 

cartr. 
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TAVOLA DI VETTORI 


0300 

0768 


$4d3f 

Routine dierrore (per errore X) 

0302 

0770 


$4dc6 

Lettura esecuzione di linea Basic 

0304 

0772 


$430d 

Conversione codice interprete 

0306 

0774 


$5151 

Conversione in codici testo 

0308 

0776 


$4aa2 

Esecuzione parola chiave 

030a 

0778 


$78da 

Valutazione di espressioni 

0 30c 

0780 


$4321 

Conversione routine di escape 

030e 

0782 


$51cd 

Lista di escape 

0310 

0784 


$4ba9 

Esecuzione dell'escape 

0312 

0786 


$ff ff 

Vettore di interruzione TIME 

0314 

0788 


$fa65 

Per routine IRQ 

0316 

0790 


$b003 

Ingresso monitor 

0318 

0792 


$fa40 

Routine NMI 

031a 

0794 


$ef bd 

Routine OPEN 

031c 

0796 


$f 188 

Routine CLOSE 

031e 

0798 


$f 106 

Routine CHKIN 

0320 

0800 


$f 14c 

Routine CKOUT 

0322 

0802 


$f 226 

Routine CLRCH 

0324 

0804 


$ef 06 

Routine BASIN 

0326 

0806 


$ef 79 

Routine BSOUT 

0328 

0808 


$f 66e 

Routine STOP 

032a 

0810 


$eeeb 

Routine GETIN 

032c 

0812 


$f 222 

Routine CLALL 

032e 

0814 


$b006 

Ingresso EXMON 

0330 

0816 


$f 2sc 

Routine LOAD 

0332 

0818 


$f 54e 

Routine SAVE 

0334 

0820 


$c7b9 

Uscita carattere con CTRL 

0336 

0822 


$c805 

Uscita carattere con SHIFT 

0338 

0824 


$c9cl 

Uscita carattere con ESCAPE 

03 3a 

0826 


$c5el 

Lettura di tastiera 

033c 

0828 


$c6ad 

Immagazzinamento di tastiera 

033e 

0830 


$fa80 

Prima tavola di decodifica tastiera 

0340 

0832 


$fad9 

Seconda " 

0342 

0834 


$fb32 

Terza 

0344 

0836 


$fb8b 

Quarta " " ” 

0346 

0838 


$fa80 

Quinta 

0348 

0840 


$fbe4 

Sesta 

034a 

0842 - 

0851 

Buffer IRQ di tastiera 

0354 

0852 - 

0861 

Tavola di bit map per tabulatori 

035e 

0862 - 

0865 

Tavola di bit map per overflow di linea 

0362 

0866 - 

0875 

Tavola dei numeri di files logici 

036c 

0876 - 

0885 

Tavola indirizzi periferiche 

0376 

0886 - 

0895 

Tavola indirizi secondari 


0380 

0896 - 

0901 

Routine 

CHRGET 

0386 

0902 - 

0911 

Routine 

CHRGOT 

0390 

0912 - 

0926 

Routine 

QNUM 


0 39 f 

0927 - 

0938 

Caricamento da un banco via PCRA e PRCR. Questa zona, come 
le successive ha il suo contenuto originale in ROM. 

L' indirizzo e' $4294 

0 3ab 

0939 - 

0950 

Come sopra ma via PCRB e PCRD 


Indirizzo ROM $42a4 
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03b7 

0951 

- 0959 

Caricamento da un banco via PCRA e PCRC 
dato da pag.O indice 1 

Indirizzo ROM $42b0 

dell' indirizzo 

03c0 

0960 

- 0968 

Come sopra ma per indice 2 

Indirizzo ROM $42b9 


03c9 

0969 

- 0977 

Come sopra ma via PCRA e PCRC sempre da 
e' della routine CHRGET. 

pag.O. Il puntatore 




Indirizzo ROM $42c2 



0 3d2 

0978 - 

0980 

Costanti numeriche per il Basic (da ROM) 

03d5 

0981 


Zona per SYS,POKE,PEEK 

0 3d6 

0982 - 

0985 

Immagazz. temporaneo per INSTRING 

03da 

0986 


Puntatori per stringhe e convers. numeri 

0 3db 

0987 - 

0990 

Zona di immagazz. per operazioni SSHAPE 

03df 

0991 


Segnalatore di overflow per MARKl 

03e0 

0992 


Immag. temporaneo per controllo Sprite 1 

03el 

0993 


Come sopra per Sprite n. 2 

03e2 

0994 - 

0995 

Zona colori 

03e4 

0996 - 

1007 

Area libera 

03f 0 

1008 - 

1020 

Routine DMA 

03f d 

1021 - 

1023 

Area libera 

0400 

1024 - 

2047 

Immagazzinamento di schermo 

0800 

2048 - 

2559 

512 Bytes per immagazzinamento Basic 
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SUCCESSIVE LOCAZIONI 


Pur rivestendo una certa importanza le 
locazioni di memoria successive all " 
indirizzo decimale 2559 ($09ff) e le 

locazioni che contengono il Basic non 
rientrano nello scopo di questo volume. 
Tuttavia ci sono delle locazioni di cui molti 
lettori non disconosceranno 1" utilità". 
Vediamole con un breve commento. 

GESTIONE DELL" RS 232 


OaOf : 

2575 

Registro 

di stato NMI 

Oal 0 : 

2576 

Registro 

di controllo 

Oalls 

2577 

Registro 

di comando 

Oal 2 : 

2578-2579 

Per baud 

rate 

0al4 : 

2580 

Registro 

di stato 

Oal 5 : 

2581 

N. bits da inviare 

Oal 6 : 

2582-2583 

Per baud 

rate(full bit) 

Oal 8 : 

2584 

Ind.inizio BUFFER input 

Oal 9 : 

2585 

Idem per 

fine 

Oala : 

2586 

Ind.inizio BUFFER output 

Oalb : 

2587 

Idem per 

fine 


BUFFER DI RS-232 


Sono riservate due aree di cui una per i dati 
in ingresso e 1" altra per quelli in uscita. 

OcOO-Ocff 3072-3327 Buffer di input per 
RS-232 
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OdOO-Odff 3328-3583 Buffer di output per 
RS-232 


VARIABILI DI SCHERMO 

Da $0a40 a $0a59 e' un' area per 1' 
immagazzinamento delle variabili di schermo. 
Corrisponde ai contenuti di pagina zero a 
partire dall' indirizzo $00e0. 

BUFFER DI CASSETTA 

E' riservata un' area da $0b00 a $0bff 
(decimale 2816-3071). 

GRAFICA 

E' riservata un' area per la definizione 
degli Sprites da $0e00 a $0eff (3584-4095) 

Altra area per la grafica e' da $1100 
a$1221.Di particolare importanza e' che all' 
interno di questa area alcune posizioni 
possono assumere valori completamente 
differenti e differenti significati. 

MUSICA 

All' immagazzinamento per i puntatori 
musicali e' riservata un' area da $1222 
(4642) a $1274 (4725). 

Le variabili del SID sarano invece 
(4737 ) a $12ff (4863). 


da $1281 
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INTERRUPT 


Vediamo in dettaglio 1' area per 1' 
immagazzinamento dei puntatori di interrupt: 

1276: 4726-4728 Immgazzinamento generale 
1279: 4729-4731 Immag. indirizzi LO 
127c: 4732-4734 Idem per HI 

Si tratta come si può' notare agevolmente di 
gruppi di 3 Bytes. 

127f: 4735 INTVAL 

1280: 4736 COLTYP 


ALTRE ZONE 

1000: 4096-4105 Area per i tasti di funzione 
programmabile. Tavola delle lunghezze. 
lOOa: 4106-4351 Come sopra, ma per 

utilizzata per le funzioni stringa. 

1300: 4864-6143 RAM non utilizzata 

1800: 6144-7167 Area riservata per 

applicazioni dei tasti funzione 

IcOO: 7167-8191 Area per la matrice video 

numero 2 

2000: 8192-16383 Area per VIC bit map 
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LE ROUTINES KERNAL 


Non vogliamo qui tenere una lezione sul 
Linguaggio Macchina per il quale si rimanda 
all' apposito manuale scritto per il C64 ma 
che potrà' rivelarsi utilissimo anche in 
questo caso, tuttavia le routines Kernal, 
anche se presentate nel corso delle pagine 
precedenti completamente disassemblate, 
meritano, per la loro estrema importanza un 
trattamento particolare. 

Per questo motivo le ripresentiamo per esteso 
cercando di ampliarne le descrizioni. 

La conoscenza degli indirizzi e dei 
significati di queste routine che si 
riferiscono essenzialmente al controllo dei 
dati e delle informazioni in ingresso ed in 
uscita permette infatti, oltre che una 
migliore risposta in termini di 
programmazione e di efficienza complessiva, 
anche la possibilità' di effettuare 
variazioni al sistema stesso per 
manipolazioni di dati. 

Ciò' che consentirà' di essere preparati 
ANCHE a tutte le modifiche che il costruttore 
o 1' utente vorrà' apportare. 

Anche per chi opera con scioltezza in 
Linguaggio Macchina e ' molto piu ' semplice 
limitarsi a delle modifiche che non il dover 
riscrivere delle routines e poi provarle. 

Di norma a queste routines si accede 
attravrso un' istruzione di JSR. Vediamo come 
si comportano in linea generale. 

1) All' accensione per prima cosa viene 
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resettato lo Stack Pointer ed azzerato il 
modo decimale. 


NOTA 

Vedi di fare attenzione a quanto verrà ' detto 
nella parte relativa allo Z-80 per tutta la 
serie di operazioni compiute a questo 
proposito. Qui vogliamo solo dare un" idea 
dello schema generale. 


2) Per seconda cosa viene controllata la 
presenza di un eventuale ROM dotata di 
AUTOSTART sioe ' di partenza automatica. 

Se viene incontrata la routine di autostart 
sul cartridge, ed e" bene ricordare che non 
tutti i cartridges sono dotati di questa 
routine, allora il controllo viene trasferito 
al programma presente nella ROM stessa, 
mentre in caso contrario viene eseguita, o 
meglio proseguita, la procedura di 
inizializzazione. 

Ricordiamo che di solito con le informazioni 
contenute nel cartridge viene modificata solo 
in piccola parte il Sistema Operativo. 

3) Successivamente le routines Kernal 
provvedono ad inizializzare tutte le 
periferiche di Input ed Output come pure il 
bus seriale. 

4) Viene eseguito un controllo della RAM 
fissando i puntatori di inizio e fine 
memoria. 

Viene quindi inizializzata la pagina ZERO e 
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UNO della memoria con gli opportuni valori e 
fissata la zona del buffer di cassetta. 

5) Vengono eseguite altre funzioni fra le 
quali quelle che ci interessano 
particolarmente sono 1 ' impostazione ai 
valori normali di procedimento, in altre 
parole la loro inizializzazione sia dei 
valori delle tavole che dei valori dei salti 
indiretti. 


E' importante notare che qui sono riportate 
solo le KERNAL del computer COMMODORE C128, 
mentre per quelle relative al COMMODORE C64 
si rimanda ai volumi: 


IL SISTEMA OPERATIVO DEL C 64 


GUIDA AL COMMODORE 64 
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DESCRIZIONE DELLE ROUTINES KERNAL 


NOME : C64MODE 

FUNZIONE : inserisce il modo C64 

INDIRIZZO: $FF4D - 65357 

DESCRIZIONE : Saltando a questo indirizzo, 
cioè' chiamando in funzione questa routine si 
passa dal modo 128, che e' quello di DEFAULT 
al modo 64. La frequenza viene ridotta ad 1 
MHz e la MMU chiude tutti i registri di 
accesso a quel modo in modo tale che non si 
possa tornare indietro. Non ci sono parametri 
di ingresso o di uscita perche ' non esiste 
possibilità' di ritornare indietro. 


NOME : DMA-CALL 

FUNZIONE : inizializazione della RAM esterna 
INDIRIZZO: $FF50 - 65360 

DESCRIZIONE: Per avere un accesso diretto 
alla memoria verso un' espansione RAM esterna 
e' necessario per prima cosa chiamare in 
funzione questa routine. 

Nel registro X deve essere indicata la nuova 
configurazione del sistema per la gestione 
completa della memoria. 
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NOME : BOOTCALL 

FUNZIONE : esegue il BOOT da disco 
INDIRIZZO: $FF53 - 65363 

DESCRIZIONE : Facendo entrare in funzione 
questa routine si esegue il BOOT del disco. 
Si carica 1' indirizzo che e' nel drive. 
Accade lo stesso come quando si accende 1 ' 
apparecchio. 

Se la routine non trova un BOOTFILE allora il 
controllo viene restituito all' unita' 
centrale. 

Nel registro X e' inserito 1' indirizzo della 
periferica collegata. 


NOME : PHOENIX 

FUNZIONE : partenza a freddo 
INDIRIZZO: $FF56 - 65366 

DESCRIZIONE: Partenza a freddo del modo 128. 
Se viene rilevata la presenza di un cartridge 
di espansione nella relativa porta allora 
questa assume il controllo. Dovrebbe esserci 
1' AUTOSTART. In caso contrario il controllo 
passa all' unita' a disco. I valori assegnati 
ai tabulatori, ai tasti funzione ecc. vengono 
resettati. 


NOME : LKUPLA 

FUNZIONE : Ricerca il FILENUMBER 
INDIRIZZO: $FF59 - 65369 

DESCRIZIONE: Questa routine effettua la 

ricerca dei parametri di un file basandosi 
sull' indirizzo logico immagazzinato nell' 
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Accumulatore. LKUPLA esegue iun CLEAR della 
variabile di STATUS ed in rapporto ai 
risultati che ottiene dall' esame del 
registro restituisce un errore se non si 
trova un indirizzo logico (LA) nell ' 
accumulatore. Oppure immetterà' il primo 
indirizzo nel registro X e 1 ' indirizzo 
secondario nel registro Y. Deve essere 
chiamata prima di un OPEN con un JSR. 


NOME : LKUPSA 

FUNZIONE : Ricerca i parametri di un file 
INDIRIZZO: $FF5C - 65372 

DESCRIZIONE: Ricerca i parametri di un file 
basandosi sul valore dell ' indirizzo 
secondario immagazzinato nel registro Y. Per 
il resto e' abbastanza simile come 
comportamento alla routine precedente. 


NOME : SWAPPER 

FUNZIONE : passa da 40 a 80 colonne 
INDIRIZZO: $FF5F - 65375 

DESCRIZIONE Questa routine inverte il modo 
40/80 colonne. Inoltre modifica le 
informazioni in Pagina zero per lo schermo 
attivo e lo schermo passivo. La memoria che 
va E0 fino a FA viene scambiata con la 
memoria da 0A40 fino a 0A5A. Non e' richiesto 
nessun parametro di input. 


NOME : DLCHR 

FUNZIONE- : copia il CHARRROM 
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INDIRIZZO: $FF62 - 65378 

DESCRIZIONE Attivando il tasto ASCII-DIN il 
set di caratteri viene di nuovo copiato nel 
VDC-RAM perche' il controllo delle 80 colonne 
prende le informazioni per i caratteri non da 
ROM. Può' essere utili nella grafica perche' 
qui il set dei caratteri che si trova nel VDC 
RAM viene sovrascritto. Questa routine si 
copia nel VDC RAM il set di caratteri che e' 
stato selezionato con il tasto ASCII-DIN. 

Non sono necessari ne parametri di input ne' 
di OUTPUT. 


NOME :PFKEY 

FUNZIONE : Ridefinizione dei tasti funzione 
INDIRIZZO: $FF65 - 65381 

DESCRIZIONE Con questa routine si possono 
assegnare i valori ai tasti funzione. 

Nell' accumulatore si trova 1' indirizzo 
della Pagina ZERO che fa da puntatore sul 
testo del TASTO FUNZIONE. Nel registro X si 
trova il numero del tasto funzione quindi da 
1 a 12. Nel registro Y si trova la lunghezza 
della stringa. Si chiamerà' in funzione 
questa routine che inserisce la stringa nella 
tabella. 


NOME : SETBANK 

FUNZIONE : definisce il banco di memoria per 
le operazioni disco 
INDIRIZZO: $FF68 - 65384 

DESCRIZIONE Questa routine deve essere 
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chiamata prima di ogni comando LOAD, SAVE e 
VERIFY ed anche prima di OPEN. L ' indice di 
configurazione del nome del file viene 
consegnato nel Registro Y e 1 ' indice di 
configurazione del banco di memoria su cui si 
lavora viene consegnato nell' Accumulatore. 
Il registro Y viene memorizzto nella pagina 
zero all' indirizzo $C6 e 1' Accumulatore in 
$C7. 


NOME :GETCONF 

FUNZIONE : prende il Byte di configurazione 
INDIRIZZO: $FF6B - 65387 

DESCRIZIONE Normalmente esiste una tabella di 
16 Bytes di configurazione che e' sufficiente 
per la definizione dell varie configurazioni. 
Questa tabella si trova nell' indirizzo 
$F7F0. La routine consegna al Registro X 1/ 
indice di configurazione e riceve nell' 
Accumulatore il Byte di configurazione che 
normalmente si scrive nel registro di 
configurazione che si trova a $FF00 


NOME : JSRFAR 

FUNZIONE : salto in subroutine su qualsiasi 
BANK 

INDIRIZZO: $FF6E - 65390 

DESCRIZIONE Questa routine ha lo scopo di 
poter saltare in un qualsiasi sottoprogramma 
in una qualsiasi configurazione.1 parametri 
sono in Pagina Zero dagli indirizzi da $02 
fino a $09. Al terminere della routine la 
vecchia configurazione viene ristabilita. 
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NOME : JMPFAR 

FUNZIONE : salta in qualsiasi banco 
INDIRIZZO: $FF71 - 65393 

DESCRIZIONE Anche con questa routine i 
parametri vengono consegnati alla pagina zero 
agli indirizzi da $02 a $09. Tuttavia JMPFAR 
non e' la chiamata di un sottoprogramma, ma 
solo un salto in qualsiasi BANK. JMPFAR 
quindi riunisce in se lo switch del byte di 
configurazione ed il salto. Poiché' qui non 
avviene un ritorno non ci saranno dei 
parametri che vengono restituiti. 


NOME : INDFET 

FUNZIONE : prende un Byte di qualsiasi Bank 


INDIRIZZO: 

$FF74 - 

65396 



DESCRIZIONE 

Questa 

routine 

che 

si trova 

sopratutto 

nella 

Pagina 

Zero 

da la 

possibilità 

di 

leggere 

un 

qualsiasi 

indirizzo 

della 

memoria 

in 

qualsiasi 


configurazione senza dover cambiare in modo 
notevole la configurazione attuale. Per far 
ciò' e' necessario per prima cosa definire in 
un indirizzo in Pagina Zero il puntatore alla 
memoria che si vuole leggere. 

Nell' Accumulatore viene poi consegnato 
questo indirizzo della Pagina Zero. Nel 
registro X viene consegnato 1 ' indice di 
configurazione e nel registro Y viene 
consegnato 1 'offset riguardo al puntatore 
della pagina zero. 
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NOME : INDSTA 

FUNZIONE : memorizza 1 ' Accumulatore in 
qualsiasi Bank. 

INDIRIZZO: $FF77 - 65399 

DESCRIZIONE Come avviene nella Routine INDFET 
cosi questa routine carica nella memoria il 
contenuto dell' Accumulatore in qualsiasi 
configurazione della memoria. Quindi anche i 
parametri devono essere consegnati nell ' 
Accumulatore, nel registro X e nel registro 
Y. Tuttavia il Byte che deve essere 
memorizzato finisce nell' Accumulatore. L' 
indirizzo di Pagina Zero nel quale viene 
memorizzato il puntatore deve essere definito 
nell' indirizzo $02B9. 


NOME : INDCMP 

FUNZIONE : Confronta 1 ' Accumulatore con la 
memoria di un Bank qualsiasi. 

INDIRIZZO: $FF7A - 65402 

DESCRIZIONE Questa routine confronta 1 ' 
Accumulatore con qualsiasi indirizzo di 
memoria in qualsiasi banco. Come avviene per 
la routine INDSTA anche qui e ' necessario 
comunicare 1 ' indirizzo del puntatore in 
Pagina Zero. Ciò' viene fatto nell' indirizzo 
$02C8. Nell' Accumulatore viene consegnato il 
Byte che deve essere confrontato, nel 
registro X viene consegnato 1 ' indice di 
configurazione e nel registro Y 1' OFFSET. 
Dopo che e' stata chiamata questa routine il 
risultato di questo confronto e cioè' lo 
STATUS BYTE del processor si trova 
nell'indirizzo $05. 
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NOME :PRIMM 

FUNZIONE : inserisce un testo 

INDIRIZZO: $FF7D - 65402 

DESCRIZIONE Questa routine e' molto comoda 
perche' e' molto facile da usare. Infatti non 
deve essere consegnato alcun parametro. Tutti 
i Bytes che seguono dopo aver chiamato questa 
routine vengono consegnati al device di 
output sul BSOUT. 

Come segno che siamo arrivati alla fine viene 
usato un Byte zero. Il programa viene poi 
continuato subito dopo il Byte zero. L' unico 
svantaggio di questa routine e' che quando si 
va a disassemblere il programma questi 
diventa poco chiaro e confuso da leggere. 


NOME : ACPTR 

FUNZIONE : riceve dati dal bus seriale 
INDIRIZZO: $FFA5 - 65445 

DESCRIZIONE :Questa e' la routine che si usa 
quando si desidera ricevere informazioni da 
una periferica attraverso il BUS seriale, per 
esempio da disco. Questa routine riceve un 
Byte di dati dal Bus usando un HANDSHAKING 
pieno ed il dato e' riportato in 
Accumulatore. La routine TALK deve essere 
chiamata in funzione prima di ordinare alla 
periferica di inviare dati sul Bus. 

Se la periferica in ingresso necessita di un 
comando secondario, questo deve essere 
inviato usando la routine TKSA prima di 
ACPTR. Se ci sono errori saranno riportati 
nella PAROLA di STATO (STATUS WORD) il cui 
contenuto potrà' essere letto dalla routine 
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NOME : CHKIN 

FUNZIONE : apre un canale di input 

INDIRIZZO: $FFC6 - 65478 

DESCRIZIONE: Un qualsiasi File logico che sia 
stato aperto per mezzo della routine OPEN 
può' essere definito come un canale di Input 
per mezzo di questa routine. Naturalmente la 
periferica sul canale deve essere una 
periferica in input, perche' altrimenti 
avremo un errore e la CHKIN non avra' 

effetto. Se si stanno ricevendo dati da una 
qualsiasi altra parte che non sia la 
tastiera, questa routine (OPEN) deve essere 
chiamata prima di usare sia le routine CHRIN 
che GETIN per 1' Input dei dati. Se si 

desidera usare 1 ' Input da tastiera, e nessun 
altro canale di input e' aperto, allora la 
chiamata a questa Routine e alla routine 
OPEN non e' necessaria. Quando questa routine 
e' utilizzata con una periferica sul bus 
Seriale, essa invia automaticamente 1' 
indirizzo di chiamata ( e 1' indirizzo 
secondario se questo e' specificato in OPEN) 
sul Bus. 


NOME : CHKOUT 

FUNZIONE : Apre un canale per OUTPUT 
INDIRIZZO: $FFC9 - 65481 

DESCRIZIONE: Un qualsiasi numero di File 

logico che sia stato creato dalla routine 
OPEN può' essere definito come un canale di 
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OUTPUT. Perciò' la periferica deve essere una 
periferica in OUTPUT cioè' in uscita perche' 
in caso contrario avremo una segnalazione di 
errore. Questa routine (CHKOUT) deve essere 
messa in funzione prima che un qualsiasi dato 
sia inviato ad una periferica ( naturalmente 
in uscita) a meno che non si desideri usare 
lo schermo in funzione di periferica in 
uscita. Quando e' usata per aprire un canale 
per una periferica sul Bus seriale, questa 
nostra routine invierà ' automaticamente 1' 
indirizzo di LISTEN specificato dalla routine 
OPEN e 1' indirizzo secondario se esiste. 


NOME : CHRIN 

FUNZIONE : Riceve un carattere da un canale 
di Input 

INDIRIZZO: $FFCF - 65487 

DESCRIZIONE: Questa routine riceve un byte di 
dati da un canale già' selezionato per mezzo 
della routine CHKIN come canale in INPUT. Se 
CHKIN non e ' stata usata per definire un 
diverso canale di input allora i dati saranno 
attesi da tastiera. Il Byte di dati e' 
caricato in accumulatore ed il canale resta 
aperto. 

L' ingresso da tastiera e' manipolato in 
maniera particolare. Per prima cosa e' 
attivato il cursore che lampeggera' fino alla 
digitazione di un ritorno carrello da 
tastiera ( cioè' fino a quando non sia 
premuto il RETURN). Tutti i caratteri della 
linea ( max 88) sono immagazzinati nel BASIC 
INPUT BUFFER. Questi caratteri sono 
recuperati ad uno ad uno per mezzo di tanti 
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salti a questa routine quanti sono questi 
caratteri. 

Quando vine incontrato il ritorno carrello 1' 
intera linea e' stata manipolata. 


NOME :CHROUT 

FUNZIONE: Uscita di un carattere 

INDIRIZZO: $FFD2 - 65490 

DESCRIZIONE: Questa routine fa uscire un 

carattere su un canale già' aperto. E' 
necessario usare le routines OPEN e CHKOUT 
per fissare un canale di uscita prima di 
chiamare questa routine. Nel caso che queste 
chiamate siano omesse i data saranno 
inviati alla periferica base in uscita, cioè' 
la numero 3 il video. I Byte che devono 
uscire , cioè ' che sono in Output sono 
caricati nell' Accumulatore, viene chiamata 
la routine CHROUT e succesivamente i dati 
sono inviati alla periferica selezionata, 
mentre il canale viene lasciato aperto. 


NOME : CIOOT 

FUNZIONE : Trasmette un Byte sul bus seriale 
INDIRIZZO: $FFA8 - 65448 

DESCRIZIONE: Questa routine e' utilizzata per 
inviare informazioni a periferiche collegate 
al bus seriale. Perciò' la messa in funzione 
di questa routine avra ' come conseguenza 1 ' 
immissione di un byte di dati sul bus seriale 
usando un HANDSHAKING seriale pieno. Prima di 
chiamare questa routine, deve essere chiamata 
la routine LISTEN che ordinerà' alla 
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periferica sul BUS seriale di tenersi pronta 
a ricevere i dati. (Se alla periferica 
necessita un indirizzo secondario questo deve 
essere inviato attraverso 1 ' utilizzo della 
routine SECOND che vedremo in seguito). La 
periferica deve essere in ascolto o sara ' 
generato, attraverso la parola di stato , un 
errore di fuori tempo (TIMEOUT). 


NOME : CINT 

FUNZIONE : Inizializza 1 ' editor di schermo e 
1 ' integrato 6567 
INDIRIZZO: $FF81 - 65409 

DESCRIZIONE: Questa routine abilita 1 ' 

integrato 6567 (VIDEO CONTROLLER) nel C128 
per le normali operazioni. Viene 

inizializzato anche il KERNAL SCREEN EDITOR 
Dovrebbe essere chiamata in funzione da un 
catridge. 


NOME : CLALL 

FUNZIONE : Chiude tutti i Files 
INDIRIZZO: $FFE7 - 65511 

DESCRIZIONE: Questa routine serve per 

chiudere tutti i files aperti. Quando entra 
in funzione questa routine i puntatori della 
tavola dei file aperti sono resettati, 
chiudendo cosi" tutti i files. 

Anche la routine CLRCHN viene chiamata per 
resettare tutti i canali di I/O. 
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NOME :CLOSE 

FUNZIONE : Chiude un file logico 
INDIRIZZO: $FFC3 - 65475 

DESCRIZIONE: Questa routine e' utilizzata per 
chiudere un file logico dopo che tutte le 
operazioni di I/O sullo stesso file sono 
state eseguite. La routine e' chiamata dopo 
che 1' accumulatore e' stato caricato con il 
numero di file logico che deve essere chiuso. 
Naturalmnete questo sara ' lo stesso numero 
usato quando il file era stato aperto con 
OPEN. 


NOME :CLRCHN 

FUNZIONE : Pulisci i canali di I/O 
INDIRIZZO: $FFCC - 65484 

DESCRIZIONE: Questa routine e' utilizzata per 
eseguire il CLEAR di tutti i canali aperti e 
ripristinare gli stessi canali ai loro valori 
originari. La periferica normale di INPUT e' 
0 (cioè' la tastiera) , mentre la periferica 
normale di OUTPUT e' 3 ( cioè' il video). Se 
uno dei canali di comunicazione e' su una 
porta seriale, viene inviato per prima cosa 
un segnale di UNTALE per eseguire la pulizia 
del canale di Input o un segnale di UNLISTEN 
per la pulizia del canale di Output. Non 
eseguendo la chiamata a questa routine e 
quindi lasciando gli ascoltatori ( LISTENERS 
) attivi sul bus seriale, diverse periferiche 
possono ricevere gli stessi dati dal C128 
allo stesso tempo. Un sistema per utilizzare 
questa particolarita ' potrebbe essere quello 
di mettere la stampante in TALK e il disco in 
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LISTEN per consentire la stampa diretta di un 
file disco. La routine CLRCHN entra 
automaticamente in funzione dopo 1 ' 
esecuzione di CLALL. 


NOME : GETIN 

FUNZIONE : Riceve un carattere da periferica. 
INDIRIZZO: $FFE4 - 65508 

DESCRIZIONE: Se il carattere e' da tastiera, 
questa routine prende un carattere dalla coda 
di tastiera (KEYBOARD QUEUE) e lo riporta 
nell' Accumulatore come valore ASCII. e il 
buffer ( cioè' la coda di tastiera che e' 
appunto un buffer) e' vuota allora il 
carattere caricato nell' Accumulatore sara' 
zero. I caratteri sono immessi nella coda di 
tastiera utilizzando sia una parte HARDWARE 
(INTERRUPT DRIVEN KEYBOARD) sia la routine di 
scnsione della tastiera SCNKEY. Il buffer 
può' contenere al massimo 10 caratteri per 
cui se e' pieno gli altri carateri che si 
tenterà' di immettere saranno ignorati fino a 
quando almeno un carattere non sia rimosso 
dalla coda. 

Se il canale invece di essere la tastiera e' 
1 ' RS-232 allora viene usato solo il registro 
A e viene riportato un solo carattere e sara ' 
necessario utilizzare READST per il controllo 
di validità'. 

Se il canale invece e' seriale, cassetta o 
schermo e' chiamata la routine BASIN. 


NOME : IOBASE 

FUNZIONE : Definisce la pagina di memoria I/O 
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INDIRIZZO: $FFF3 - 65523 

DESCRIZIONE: Questa routine fissa i registri 
X e Y all' indirizzo della sezione di memoria 
che definisce dove sono localizzate le 
periferiche I/O. Questo indirizzo può' essere 
utilizzato come linea di deviazione (OFFSET) 
per accedere alla memoria disegnata per le 
periferiche I/O. La linea di deviazione e' il 
numero di locazioni dall' inizio della pagina 
sulla quale si desidera che i registri I/O 
siano immessi. 
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NOME : IOINIT 

FUNZIONE : Inizializza periferiche I/O 
INDIRIZZO: $FF84 - 65412 

DESCRIZIONE: Questa routine inizializza tutte 
le periferiche di I/O e le routines. E' 
normalmente chiamata come parte di una 
procedura di inizializzazione di un programma 
su cartridge 


NOME : LISTEN 

FUNZIONE : Invia un comando di ascolto ad una 
periferica sul Bus seriale 
INDIRIZZO: $FFBl - 65457 

DESCRIZIONE: Questa routine ordina ad una 
periferica sul 1 Bus seriale di ricevere 
dati.L' Accumulatore deve essere caricato con 
un numero compreso fra 0 e 31 prima di 
chiamare questa routine. 

LISTEN eseguirà' un OR logico sul numero bit 
per bit per convertirlo in un indirizzo di 
ascolto e poi trasmetterà' questo dato come 
comando sul bus seriale. 

La periferica specificata si metterà' allora 
in modo di ascolto e sara ' pronta per 
ricevere informazioni. 


NOME : LOAD 

FUNZIONE : Carica RAM da una periferica 
INDIRIZZO: $FFD5 - 65493 


DESCRIZIONE: Questa routine carica Bytes di 
dati da una qualsiasi periferica in INPUT 
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direttamente entro la memoria del computer. 
Può ' anche essere usata per una operazione di 
verifica che avviene confrontando i dati 
presenti sulla periferica con quelli in 
memoria e lasciando i dati in memoria 
inalterati. 

L ' Accumulatore deve essere messo a 0 per un' 
operazione di LOAD o messo a 1 per un' 
operazione di verifica. 

Se la periferica in Input e' aperta con un' 
indirizzo secondario di 0, allora sara ' 
ignorata la testata (HEADER) dell' 
informazione. 

In questo caso i registri X e Y devono 
contenere 1 ' indirizzo di partenza per LOAD. 
Se la periferica e' collegata con un 
indirizzo secondario 10 2, allora i dati 

saranno caricati in memoria con partenza 
dall' indirizzo specificato dalla testata. 
Questa routine inoltre riporta 1 ' indirizzo 
della piu' alta locazione di RAM caricata. 
Prima di chiamare questa routine e ' 
necessario chiamare le routines SETLFS e 
SETNAM. 


NOTA 


Non si può' eseguire il LOAD da Tastiera (0), 
RS-232 (2) o schermo (3). 
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NOME : MEMBOT 

FUNZIONE : Fissa la parte piu' bassa della 
memoria 

INDIRIZZO: $FF9C - 65436 

DESCRIZIONE: Questa routine e' usata per 
fissare la parte piu' bassa della memoria. Se 
il bit di Carry dell' Accumulatore e' a 1 
quando viene chiamata questa routine, allora 
un puntatore che indica il Byte piu' bassao 
della RAM e' riportato in X e Y. 


NOME : MEMTOP 

FUNZIONE : Fissa la parte alta della memoria 
INDIRIZZO: $FF99 - 65433 

DESCRIZIONE: Questa routine e' utilizzata per 
fissare il punto massimo della memoria RAM. 
Il funzionamento e' simile alla routine 
precedente (MEMBOT). 

Infatti anche in questo caso quando si 
utilizza questa Routine con il bit di Carry 
dell' Accumulatore a 1, il puntatore alla 
fine della memoria RAM e' caricato nei 
registri X e Y. 

Quando invece la si utilizza con il bit di 
carry a 0, allora il contenuto dei registri X 
e Y e' caricato nel puntatore al massimo 
della memoria. 


NOME : OPEN 

FUNZIONE : Apre un file logico 
INDIRIZZO: $FFC0 - 65472 


DESCRIZIONE: Questa routine e' utilizzata per 
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eseguire la funzione di apertura di un File 
logico. Non appena il file logico e' stato 
fissato questi può' essere utilizzato per 
operazioni di I/O. 

Molte delle Routines del sistema operativo 
fanno uso di OPEN. 

Non sono necessari argomenti o operandi ma 
prima di utilizzare questa routine sara' 
necessario metterne in funzione altre due 
cioè' la SETLFS e la SETNAM. 


NOME : PLOT 

FUNZIONE : Legge e fissa la posizione del 
cursore 

INDIRIZZO: $FFF0 - 65520 


DESCRIZIONE: 
con il carry 
la posizione 
coordinate X 
Y e X dove Y 
cursore ( da 
occupato dal 
il carry e a 
dei registri 
quei valori. 


Quando si salta a questa routine 
dell' accumulatore a 1, allora 
attuale del cursore , nelle sue 
e Y sara ' caricata nel registri 
sara' il numero di colonna del 
0 a 79) e X il numero di riga 
cursore ( da 0 a 24).Se invece 
0 allora verranno letti i valori 
X e Y e il cursore posizionato a 


NOME : RAMTAS 

FUNZIONE : Controlla le RAM, fissa aree per 
buffer nastro e schermo 
INDIRIZZO: $FF87 - 65415 

DESCRIZIONE: Questa routine e' utilizzata per 
controllare la memoria RAM e fissare i 
puntatori della memoria sia in alto che in 



163 


Il S.Operativo del Commodore Pag. - 


basso. Esegue anche il clear delle locazioni 
$0000 fino a $0101 e da $0200 a $03FF. 
Normalmente questa routine e' chiamata come 
parte di un processo di inizializzazione di 
un Cartridge. 


NOME : RDTIM 

FUNZIONE : Legge 1 'orologio in tempo reale 
INDIRIZZO: $FFDE - 65502 

DESCRIZIONE: Questa routine e' utilizzata per 
leggere il clock o orologio di sistema. La 
risoluzione del clock, cioè' il tempo minimo 
e' di 1 60mo di secondo. 

Il risultato della lettura di questa routine 
e' di 3 Bytes che sono riportati 
rispettivamente nell ' Accumulatore , nel 
registro X e Y. Operando con questi tre 
registri e, come vedremo poi con la routine 
SETTIM e' possibile leggere e variare il 
contenuto dell' orologio del sistema. 


NOME : READST 

FUNZIONE : Legge lo STATUS WORD 

INDIRIZZO: $FFB7 - 65463 

DESCRIZIONE: Questa routine riporta lo stato 
attuale delle periferiche in I/O nell' 
accumulatore. E' utilizzata di norma dopo 
ogni colloquio con le periferiche e riporta 
le informazioni sullo stato delle periferiche 
stesse o eventuali errori incontrati durante 
operazioni di I/O. 
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NOME :RESTOR 

FUNZIONE : Reintegra i vettori di sistema. 
INDIRIZZO: $FF8A - 65418 

DESCRIZIONE: Questa routine reintegra i 

valori mancanti dei vettori di tutto il 
sistema usati sia nelle KERNAL che nel BASIC 
come routines e come interrupts. 


NOME : SAVE 

FUNZIONE : Salva la memoria RAM su periferica 
INDIRIZZO: $FFD8 - 65496 

DESCRIZIONE: Questa routine e' utilizzata per 
eseguire 1 ' operazione di SAVE di una parte 
di memoria. La memoria e' salvata da un' 
indirizzo indiretto in pagina 0 specificato 
dall' Accumulatore a un' indirizzo 
immagazzinato nei registri X e Y. 

Sara' quindi inviato ad un File logico su una 
periferica. 

Le routines SETLFS e SETNAM devono essere 
utilizzate prima di accedere a questa 
routine. 

Tuttavia non e ' necessario dare un nome al 
file che si desidera salvare su cassetta, 
mentre e' necessario per qualsiasi altra 
periferica. 


NOME : SCNKEY 

FUNZIONE : Esegue la scansione di tastiera 
INDIRIZZO: $FF9F - 65439 

DESCRIZIONE: Questa routine esegue la 

scansione (cioè' la lettura) della tastiera e 
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controlla se ci sono tasti premuti. 

E" la stessa routine chiamata per mezzo della 
manipolazione di Interrupt. 

Se un tasto e' premuto, allora il suo valore 
ASCII e' immesso nella coda di tastiera. 


NOME : SECOND 

FUNZIONE : Invia un indirizzo secondario per 
la funzione di ascolto ( LISTEN) 

INDIRIZZO: $FF93 - 65427 

DESCRIZIONE: Questa routine e' utilizzata per 
inviare un indirizzo secondario ad una 
periferica in I/O dopo che e' stata 
effettuata una chiamata alla routine LISTEN e 
quindi e' stato ordinato alla periferica di 
porsi in ascolto. Questa routine non può' 
essere usata per inviare un indirizzo 
secondario dopo un salto alla routine TALK 
(chiamata). Normalmente un indirizzo 
secondario e' usato per comunicare il tipo di 
informazione che si desidera inviare alla 
periferica. 


NOME : SETLFS 

FUNZIONE : Fissa il file logico ( in maniera 
completa) 

INDIRIZZO: $FFBA - 65466 

DESCRIZIONE: Questa routine fissa il numero 
di file logico, 1 ' indirizzo della periferica 
e 1 ' indirizzo secondario per le altre 
routines. Il numero di file logico e' usato 
dal sistema come chiave di riferimento alla 
tavola creata dalla routine OPEN file. 
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L ' indirizzo della periferica può' essere un 
numero dell' intervallo da 0 a 31. 


NOME : SETMSG 

FUNZIONE : Controllo dei messaggi di sistema 
in uscita 

INDIRIZZO: $FF90 - 65420 

DESCRIZIONE: Questa routine controlla la 

stampa di errore ed i messaggi di controllo 
delle Kernal routines. Sia la stampa dei 
messaggi di errore come la stampa dei 
messaggi di controllo possono essere 
selezionate, cioè' scelte, fissando 1' 

accumulatore quando viene chiamata la 

routine. 


NOME : SETNAM 

FUNZIONE : Fissa il nome del file 
INDIRIZZO: $FFBD - 65496 

DESCRIZIONE: Questa routine e' utilizzata per 
fissare il nome del file per le routine di 
OPEN, SAVE e LOAD. L' Accumulatore deve 
essere caricato con la lunghezza del nome del 
file. I registri X e Y devono essere caricati 
con 1 ' indirizzo del nome del file secondo il 
formato 6510 cioè' prima il byte basso e poi 
il byte alto. L' indirizzo può' essere un 
qualsiasi proponibile indirizzo di memoria 
del sistema dove sia appunto immagazzinata 
una stringa di caratteri che e' il nome del 
file. Se non si desidera nessun nome, allora 
1 ' Accumulatore deve esere messo a 0 che 
rappresenterà' un file di lunghezza zero. In 
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questo caso i registri X e Y possono essere 
fissati ad un qualsiasi indirizzo di memoria. 


NOME : SETTIM 

FUNZIONE : Fissa i valori del clock di 
sistema 

INDIRIZZO: $FFDB - 65499 

DESCRIZIONE: L ' orologio di sistema e' 

mantenuto da una routine di interrupt che lo 
aggiorna ogni sessantesimo di secondo (un 
"JIFFY" o ciclo ). 

Il sistema di clock occupa 3 Bytes che da 
una capacita' di contare fino a 5.184.000 
cicli ( o JIFFY) per un totale di 24 ore dopo 
di che 1 ' orologio torna a zero. 


NOME : SETTMO 

FUNZIONE : Fissa il flag di fuori tempo ( 
TIME-OUT) sul bus IEEE 
INDIRIZZO: $FFA2 - 65442 

DESCRIZIONE: Questa routine fissa il flag di 
Fuori tempo per la IEEE. Quando questo flag 
e' messo a 1 il computer attenderà' una 
risposta da una periferica sulla IEEE per 64 
millisecondi. 

Se la periferica non risponderà' al segnale 
DAV (cioè' DATA ADDRESS VALID) entro questo 
tempo allora il CBM64 riconoscerà' una 
condizione di errore ed abbandonerà' la 
sequenza di HANDSHAKE. 

Quando questa routine e' chiamata ed il bit 7 
dell' accumulatore contiene uno 0 allora il 
TIMEOUT e' abilitato, mentre un 1 nello 
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stesso bit dell' accumulatore lo disabilita. 


NOME : STOP 

FUNZIONE : Controlla se il tasto di STOP e' 
premuto. 

INDIRIZZO: $FFE1 - 65505 

DESCRIZIONE: Se il tasto di STOP era premuto 
durante la chiamata alla routine UDTIM, la 
chiamata a questa routine mette al il flag 
Z. Per di piu' i canali saranno resettati per 
mancanza di valori, mentre tutti gli altri 
flags rimarranno immutati. Se il tasto di 
STOP non era premuto allora 1 ' Accumulatore 
conterrà' un Byte che rappresenta 1' ultima 
riga della scansione di tastiera . L' utente 
con questo metodo può' anche controllare 
alcuni altri tasti. 


NOME : TALK 

FUNZIONE : Comando ad una periferica sul BUS 
seriale di TALK. 

INDIRIZZO: $FFB4 - 65460 

DESCRIZIONE: Per utilizzare questa routine 
per prima cosa 1' Accumulatore deve essere 
caricato con un numero di periferica fra 0 e 
31. Quando e' chiamata questa routine, allora 
viene eseguito un OR logico bit per bit per 
convertire il numero della periferica in un 
indirizzo di chiamata. Quindi questi dati 
saranno trasmessi come comando sul Bus 
seriale. 
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NOME : TKSA 

FUNZIONE : Invia un indirizzo secondario ad 
una periferica dopo la routine TALK 
INDIRIZZO: $FF96 - 65430 

DESCRIZIONE: Questa routine trasmette un 

indirizzo secondario ad una periferica in 
attesa di TALK sul bus seriale. Prima di 
chiamarla deve esserci un numero fra 0 e 31 
nell' accumulatore. La routine invia questo 
numero come un comando di indirizzo 
secondario sul bus seriale. TKSA può' essere 
messa in funzione dopo la chiamata a TALK 
mentre non opererà ' dopo una routine o un 
comando di LISTEN. 


NOME : UDTIM 

FUNZIONE : Incrementa 1' orologio del sistema 
INDIRIZZO: $FFEA - 65514 

DESCRIZIONE: Questa routine incrementa 1' 

orologio del sistema. Normalmente questa 
routine e' chiamata dalla normale routine 
KERNAL di interrupt ogni sessantesimo di 
secondo. Se 1' utente si programma da se gli 
interrupt questa routine DEVE essere chiamata 
per incrementare il temporizzatore. Per di 
piu',se il tasto STOP e' funzionante, cioè' 
non e' stato disabilitato, deve essere 
chiamata anche la routine di.STOP che abbiamo 
visto prima. 
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NOME : UNLSN 

FUNZIONE : Invia un comando di UNLISTEN 
INDIRIZZO: $FFAE - 65454 

DESCRIZIONE: Questa routine ordina a tutti le 
periferiche sul bus seriale di fermare la 
ricezione dei dati dal computer 
In altre parole chiamando questa routine 
viene inviato un comando di UNLISTEN sul bus 
seriale.Ciò' naturalmente avra ' effetto solo 
sulle periferiche alle quali era stato in 
precedenza inviato un comando di LISTEN. 


NOME : UNTLK 

FUNZIONE : Invia un comando di UNTALE 


INDIRIZZO: $FFAB - 6545 

DESCRIZIONE: Come la 

invia un messaggio di 
anche in questo 
disabilitazione delle 
seriale . 


precedente solo che 
UNTALE. Naturalmente 
caso avremo una 
periferiche dal bus 


NOME :VECTOR 

FUNZIONE : Manipola i vettori su RAM 
INDIRIZZO: $FF8D - 65421 

DESCRIZIONE: Questa routine manipola tutti i 
sistemi di indirizzi di salto vettorizzati 
immagazzinati in RAM. Chiamando questa 
routine con il bit di carry dell ' 
accumulatore al, 1' attuale contenuto dei 
vettori della RAM viene immagazzinato in una 
lista a cui puntano X e Y. 

Chiamando invece questa routine con lo stesso 
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bit a 0, una lista dell' utente indirizzata 
dal contenuto dei registri X e Y e ' 
trasferita nel sistema dei vettori RAM 


NOME : CLRWIN 

FUNZIONE : cancella una finestra 
INDIRIZZO: $C142 - 49474 

DESCRIZIONE Se non e' definita alcuna 
finestra verrà' eseguita una pulizia su tutto 
lo schermo. Se invece questa e' definita la 
cancellazione avviene entro i limiti della 
finestra. 


NOME : CURHOM 

FUNZIONE : porta il cursore nella posizione 
HOME all' interno della finestra 
INDIRIZZO: $0150 - 49482 

DESCRIZIONE II Cursore viene posizionato 
nell' angolo superiore sinistro della 
finestra. Se non e' definita alcuna finestra 
allora il cursore si porta nella parte 
superiore sinistra dello schermo che e' la 
posizione 0,0. 


NOME : GETLIN 

FUNZIONE : prende una riga di input 
INDIRIZZO: $C258 - 49752 

DESCRIZIONE Dalla tastiera si prendono tanti 
Bytes che verranno poi scritti sullo schermo 
nella posizione attuale del cursore fino a 
che si preme il tasto RETURN. 
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NOME :BSOUT SCNR 

FUNZIONE : Output di un Byte sullo schermo 
attuale. 

INDIRIZZO: $C72D - 50989 

DESCRIZIONE questa routine e" la 

continuazione della routine BSOUT di 
indirizzo FFD2 pero' si risparmia alcune 
richieste prima di arrivare allo schermo per 
cui e' piu' veloce. 

Il Byte viene consegnato nell ' accumulatore e 
scritto sullo schermo attivo in quel momento 
nella posizione attuale del cursore. 


NOME : CLQIR 

FUNZIONE : cancella QUOTE, INS e RVS MODE 
INDIRIZZO: $C77D - 51069 

DESCRIZIONE Vengono cancellati i FLAG per le 
virgolette, gli Insert e Reverse . 

Questa routine lavora un po' piu' veloce di 
quanto avvenga con BSOUT. 


LE ALTRE ROUTINES 


Vediamo ora alcune altre routine interesanti 


$C854 - 51284 Cursore a destra nella 
finestra 
$C85A - 51290 
finestra 


Cursore in basso nella 
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$C867 - 51303 Cursore in alto nella finestra 
$C875 - 51317 Cursore a sinistra nella 
finestra 

$C880 - 51328 Inserisce il II set di 
caratteri 

$C8BF - 51391 Disabilita il modo reverse 
$C8C1 - 51393 Abilita il modo reverse 
$C8C7 - 51399 Inserisce il modo 
sottolineatura 

$C8CE - 51406 Disabilita la sottolineatura 
$C91B - 51483 Cancella il carattere a 
sinistra del cursore 

$C93D - 51517 Cancella il carattere sotto il 
cursore 

$C94F - 51535 Funzione TABULATORE 

$C980 - 51584 Disabilita tutti i tabulatori 

$C98E - 51598 Fa suonare il campanello 

(BELL) 

$CA14 - 51732 II cursore definisce la 
posizione alto sinistra della finestra 
$CAl6 - 51734 II cursore definisce la 
posizione alto a destra della finestra 
$CA24 - 51748 Definisce lo schermo per la 
finestra 

$CA52 - 51794 Cancella la riga attuale 
$CA76 - 51830 Cancella dalla posizione del 
cursore fino al termine della riga. 

$CA8B - 51851 Cancella dall' inizio riga 
fino all ' attuale posizione del cursore 
$CA9F - 51871 Cancella dall ' attuale 
posizione del cursore fino alla fine dello 
schermo. 

$CABC - 51900 Scroll in alto 

$CAF2 - 51954 Inserisci il cursore come 

BLOCCO 

$CAFE - 51966 Inserisci il cursore come 
LINEA 
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$CB0B - 51979 
cursore 
$CB21 - 52001 
$CB3F - 52031 
caratteri 
$CB48 - 52040 
normale 
$CC27 - 52263 


Disabilita il Flash del 

Abilita il Flash del cursore 
Reverse dello schermo a 80 

Schermo a 80 caratteri in modo 

Esegue uno Space al posto del 


cursore 

$CC2F - 52271 Preleva il carattere in 
Accumulatore e lo mette nella posizione 
attuale del cursore. 

$CC4A - 52298 Sulla posizione attuale del 
cursore viene visualizzato il carattere che 
si trova nell ' Accumulatore, nel colore del 
registro X alla colonna Y, senza muovere il 
cursore. 


$CC6A - 52330 Fissa la posizione del cursore 
§CD2C - 52524 Passa nei modi 40 e 80 
colonne. 
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MEMORY MANAGEMENT UNIT 


Introduzione 


L' unita' di controllo e manipolazione della 
memoria , MEMORY MANAGEMENT UNIT o MMU, ha il 
compito di controllare e gestire 1 ' intera 
memoria del C 128. 

Si tratta infatti di una gestione molto 
complessa perche' il costruttore, desiderando 
utilizzare ancora processori ad 8 bit come 1' 
8502 , derivazione del vecchio e glorioso 
oltre che diffusissimo 6502, e 1' altrettanto 
diffuso Z80, che sono pero' capaci di gestire 
solo 64K Bytesper volta, ma volendo altresi' 
disporre di una quantità' maggiore di 
memoria, appunto 128 K e' dovuto ricorrere ad 
una unita' specifica per la gestione della 
memoria. 

Inoltre si e' resa necessaria sfruttare la 
compatibilita' completa con il C64 e 
controllarne quindi tutte le operazioni sia 
del funzionamento in modo 128 che in C/PM 
sotto Z80. 

Si può' anzi affermare che quest' ultimo 
debba essere considerato del tutto 
indipendente e. separato dagli standard 
abituali COMMODORE, in altre parole, e non 
per parafrasare la pubblicità' che in questo 
caso e' vera, ancora un' altro computer. 
Vediamo ora le funzioni, in modo schematico, 
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di questo integrato: 


1) Controllo del TAB, cioè" del Bus di 

Traslazione indirizzi (TA8-TA15). 

2) Emissione dei segnali di controllo sia per 

la selezione del tipo di computer, cioè" 
quelli funzionanti con 1" 8500 e quello con 
lo Z80, sia per la scelta del modo di 

funzionamento appunto C64, C128 e Z80. 

3) Controllo delle linee CAS per le 

operazioni di Bank-Switching della RAM. 


E" essenziale per una corretta comprensione 
del MEMORY MANAGEMENT UNIT capire come 
funziona 1" intero sistema della memoria del 
C 128 che e" appunto controllato dal MMU. 

La MMU ha un totale di 11 registri che hanno 
un indirizzo iniziale $D500. Ora poiché' i 
registri del gruppo I/O, cioè' quelli che 
controllano 1 " ingresso ed uscita dati non 
sono sempre attivi parte di questi registri 
sono copiati a $FF00 fino a $FF05. 

Questi registri controllano il funzionamento 
degli indirizzi del microprocessore per un 
totale di 64K bytes di spazio indirizzatile 
fino ad un MEGA Bytes di RAM e fino a 32K 
bytes di ROM esterna indirizzatile dal C128. 
Come potremo vedere ci saranno 4 gruppi di 
configurazioni disponibili sui registri di 
preconfigurazione che potranno, essere 
caricati semplicemente nei registri di 
(normale) configurazione senza attivare per 
questo il gruppo di controllo I/O. 
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Ciò' evidentemente consente non solo un 
risparmio di tempo ma anche una grandissima 
facilita' e flessibilità' di programmazione. 


ORGANIZZAZIONE DELLA MEMORIA 


Per la comprensione del funzionamento del MMU 
e' importante vedere 1' organizzazione della 
memoria dell' intero C128 che e' appunto 
controllata attraverso i registri dell' MMU 
stesso. 


MAPPA DEI REGISTRI DELLA MMU 


$D500 

Registro 

di configurazione 


$D501 

Registro 

di preconfigurazione 

A 

$D50 2 

t» 

II 

B 

$D503 

II 

II 

C 

$D504 

II 

11 

D 

$D505 

II 

di modo 


$D50 6 

II 

di RAM 


$D5 07 

Puntatore LO Pagina 0 


$D50 8 

II 

HI Pagina 0 


$D509 

II 

LO Pagina 1 


$D50 A 

•l 

HI Pagina 1 


$D50B 

Registro 

versione 
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LA ROM DEL C128 


La mappa di memoria e' importante anche dal 
punto di vista del mantenimento della 
compatibilita' con il C64. 

Infatti tutti i cosi ' detti modi di 
funzionamento C64 sono compatibili con il 
COMMODORE 64 poiché', quando questo modo di 
funzionamento e' selezionato, il C128 diventa 
un C64 a tutti gli effetti. 

Il modo C128 e' controllato da un sistema di 
reset a sua volta controllato da un bit del 
Registro di configurazione del MMU. 

Sempre nel modo C128 il MMU si pone come 
mappa di memoria a $FF00 e nello spazio di 
I/O a partire da $D500. L' impiego dei 
registri MMU di indirizzo $FF00 consente la 
manipolazione della memoria senza avere 
attivato i blocchi di I/O allo stesso tempo e 
ciò' con una perdita minima della RAM vicina 
o per meglio dire adiacente. Inoltre la MMU 
viene completamente rimossa dalla mappa di 
memoria nel modo C64 anche se viene ancora 
impiegata dai circuiti interni. 

Quando il computer funziona in modo C64 le 
ROM sia esterne che interne funzionano 
esattamente allo stesso modo che nel normale 
C64. 

Sia il Basic che le routines Kernal 
forniscono i dati necessari al funzionamento 
del C64 relativamente alla parte ROM. 

Da rilevare che questa ROM duplica alcune 
delle locazioni ROM utilizzate nel modo C128 
in cui sono presenti ed operative circa 48K 
bytes di Sistema Operativo. 

L' esatto ammontare di spazio viene fissato 
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dal controllo software cosa che consente di 
accedere velocemente ai banchi utilizzando 
quella parte di RAM che non viene impiegata 
altrimenti. 

Le cosi' dette ROM esterne presenti in 
memoria sono quelle impiegate in modo C64 e 
sono soggette alle regole di MEMORY MAPPING 
proprie del C64. Vedi per questo il 
funzionamento dei cartridges sulle porte di 
espansione. 

Le ROM esterne per il C128 hanno regole 
simili a quelle impiegate con il TED per 1' 
utilizzo dei banchi di memoria. 

Ad esempio vengono osservate (dal sistema 
naturalmente) all' inizializzazione del 
sistema per vedere se sono presenti ed in 
caso positivo se hanno codici di priorità'. 
Questo sistema consente una notevole 
flessibilità' certamente superiore al sistema 
di sostituzione hardware perche' le ROM che 
contengono il Basic e le routines Kernal 
possono essere messe da parte o saltata per 
un particolare programma, rimesse in funzione 
per un' altro, selezionate sia per 1' intero 
che per una parte di esse. 

Questo sistema di manipolazione a banchi e' 
attuata scrivendo dei valori nei registri di 
configurazione sistema presenti nelle 
locazioni $D500 o $FF00 della MMU. 


ORGANIZZAZIONE DELLA MEMORIA RAM 


La memoria RAM presente attualmente 


nel 
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sistema e" composta da 128 K di memoria posta 
una accanto all ' altra. 

La RAM viene gestita e quindi si accede ad 
essa per banchi di 64K che e ' il massimo che 
i due processori (8500 e Z80) ad 8 bit 
riescono a gestire. Nelle figure relative 
alla disposizione della memoria 1' area 
mostrata come RAM rappresenta ciò' che il 
microprocessore DOVREBBE vedere se tutta la 
parte ROM fosse disabilitata. Vediamo ora 
alcuni accenni sugli effetti della tecnica di 
manipolazione dei banchi (BANK SWITCHING). 

Il banco di memoria o semplicemente banco, in 
uso in un dato momento e' in funzione dei 
valori immagazzinati nel registro di 
configurazione del MMU che vedremo dopo. 

(Jn immagazzinamento diretto su questi 
registri ha effetto immediato. Un immissione 
indiretta, utilizzando valori di 
configurazione programmati, può' essere 
effettuato andando a scrivere su uno dei 
registri di caricamento indiretti noti anche 
come LCR o LOAD CONFIGURATION REGISTER 
localizzabili nella zona di memoria di 
indirizzo $FF00. 

La scrittura indiretta attraverso i PCR o 
PreConfiguration Register consentono al 
programmatore di avere a disposizione ben 4 
diverse configurazioni preprogrammate che 
permette la personalizzazione di ogni banco 
in qualsiasi momento. 

Ad esempio il Banco n. 1 che e' un DATA Bank, 
può' essere selezionato solo come banco RAM, 
senza avere cioè' ne' ROM ne' I/O abilitati, 
mentre il Bank 0 potrà' contenere la ROM di 
sistema e gli I/O abilitati. 

Inoltre la lettura di un qualsiasi LCR 
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riporterà' il valore dei corrispondenti PCR. 
Quando si tratta con piu ' banchi di memoria 
contemporaneamente può ' avvenire che 
sidesideri utilizzare il banco 1 come RAM 
pura ma si desideri nello stesso tempo 
conservare i valori di sistema come Stack, 
Pagina zero, Schermo, ecc. 

La MMU mette a disposizione un' area di 
memoria chiamata RAM comune o COMMON RAM. 

La COMMON RAM e' programmabile sia come 
dimensione che come contenuti di partenza e 
di arrivo. La dimensione viene fissata dai 
bit 0 e 1 dell' RCR (RAM CONFIGURATION 
REGISTER). Se il valore di questi due bit e' 
0 allora 1' area di COMMON RAM sara ' di 1K, 
mentre i valori di 1, 2 e 3 daranno 
dimensioni rispettivamente di 4, 8 e 16 K di 
COMMON RAM. 

Infine se i il bit 2 e' a 1 allora la 
partenza della COMMON RAM e' dalla parte 
bassa della memoria per 1' ampiezza decisa in 
precedenza, mentre se e' =1 il bit 3 la 
partenza dei dati da salvare e' dalla parte 
alta della memoria. 

Comunque in tutti i casi la COMMON RAM e' 
fisicamente nel banco 0. 

La Pagina 0 e la pagina UNO possono essere 
locate o rilocate indipendentemente da RCR. 
Quando il processore va a cercare un 
indirizzo in pagina zero o in pagina uno e 
non lo trova, la MMU somma all' indirizzo 
alto del processore (H/A) il contenuto pari 
di PO o di Pi rispettivamente ed immette 
questi nuovi indirizzi nel BUS includendo i 
bits di indirizzamento esteso A16 ed A17. Il 
procedimento di BANKING fa si che si possa 
raggiungere cosi' i nuovi indirizzi. 
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Nello stesso tempo i contenuti di PO e Pi 
sono sottoposti ad un comparatore digitale ed 
viene messa in funzione una sostituzione 
rovesciata se gli indirizzi dati dal 
processore eseguono una ricerca inutile, 
cioè' non trovano nulla. 

Per gli accessi al VIC due bits del MMU 
sostituiscono le linee A16 ed A17. 


I REGISTRI DI CONFIGURAZIONE 


I registri di configurazione (CR) controllano 
le configurazioni ROM, RAM e di I/O del modo 
C128. Sono di indirizzo $D500 nello spazio di 
I/O e $FF00 nello spazio di sistema. 

Nel modo C128 il bit 0 controlla se sono 
necessari spazi di I/O ($D000-$DFFF) o un 
accesso RAM/ROM siano necessari. 

Un bit basso (LO) selezionerà' un I/O, uno 
alto (HI) abiliterà' alcune parti di accessi 
RAM/ROM, la natura dei quali e' controllata 
da altri bits in questo registro. 

II valore di questo bit e' immagazzinato in 
un preregistro fino a quando non venga 
rilevato un fronte di discesa del CLOCK per 
prevenire variazioni in presenza di valori 
instabili. 

L' I/O del modo 64, la linea hardware guidata 
da questo bit e' messa alta. 

Da notare che quando non esiste spazio di I/O 
1' accesso ROM/RAM e' controllato dai bits 
definiti di ROM configurazione alta che 
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vedremo fra poco. Questi bits sono messi a 

0 . . 

Quando il bit di I/O e' alto i registri MMU 
da $D500 a $D503 vranno il loro peso, mentre 
quando il bit e' basso questi registri 
spariscono dalla mappa di memoria. I registri 
MMU da $FF00 a FF04 sono sempre disponibili 
nel modo 128. 

La linea hardware I/OSE tiene sempre conto 
della polarità' di questo bit quando siamo in 
modo 128. 

Sempre in modo 128 il bit 1 controlla 1' 
accesso del processore allo spazio basso 
della ROM ($4000-$7FFF). Se il bit e' alto 1' 
area appare come RAM e viene generato al 
banco di RAM selezionato dagli altri bit di 
questo stesso registro, un accesso RAM CAS. 

Se il bit e' basso allora la ROM e' piazzata 
nell' area. 

Questo bit inoltre influenza le linee di 
status della memoria MSO e MSI che vengono 
decodificate dal PLA per generare la 
selezione degli integrati ROM. 

La selezione delle ROM a questo punto mette 
basse entrambe le linee di status della 
memoria quando gli indirizzi selezionati dal 
processore non sono rilevati nel dichiarato 
intervallo. 

Questi bit sono poi messi a 0 per includere 
la ROM bassa del basic nel 128. 

I bits 2 e 3, in modo 128, determinano il 
tipo di memoria che sara ' presente dagli 
indirizzi $8000 a $8FFF. Se entrambi sono a 
0, cioè' bassi, questa zona sara' riservata 
alla ROM di sistema. 

Con solo il bit 2 alto ci sara ' la ROM di 
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funzione interna. Con il bit 3 alto da solo 
sara' dedicato a ROM di funzione esterna. 

Con entrambi i bits alti la zona e' dedicata 
alla RAM con generazione di CAS. 

Questi due bits inoltre hanno effetti sulle 
linee di accesso hardware alla memoria. 
Infatti MSO riflette lo stato del bit 3 e MSI 
quello del bit 2. 

Entrambi questi bit sono messi bassi al reset 
con il Basic alto. 

I bits 4 e 5 determinano i contenuti del 
blocco alto di memoria ($C000-$FFFF) e solo 
in modo CI28 mentre non hanno nessun effetto 
in modo C64. 

II funzionamento di questi bit e le 
conseguenze del fatto che siano alti o bassi 
sono del tutto identiche alla precedente 
coppia appena vista. 

Da notare che il bit di configurazione I/O, 
quando e' fissato per questo spazio, lascia 
1' area da $D000 a $DFFF disposta come spazio 
di I/O relativamente ai valori di questi 
bits. 

Le locazioni da $D000 a $DFFF se non sono 
state fissate per lo spazio di I/O contengono 
la ROM carattere. Stesso discorso come sopra 
per MSO e MSI rispondenti relativamente a bit 
5 e bit 4. 

Ricordiamo che i bit 6 e 7 controllano la 
selezione dei banchi RAM. 

Una parola sui registri di PRECONFIGURAZIONE. 
Come abbiamo visto nello schema iniziale 
questi sono di indirizzo $D501-2-3-4 e non 
vengono usati in modo C64. 

In poche parole si tratta di registri della 
MMU che possono essere programmati in 
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anticipo, di qui il nome, con una data 
configurazione di memoria, po i valori 
saranno posti nei rigistri di configurazione 
veri e propri. I valori iniziali di questi 
registri possono essere letti anche nelle 
locazioni di memoria $FF01-2-3-4. 


I REGISTRI DI MODO 


Si tratta di una sola locazione di memoria di 
indirizzo $D505 che con i vari valori che 
assume indica al computer in che modo si sta 
operando cioè' in modo 128, 64 o CPM con lo 
Z80. 

Vediamo come si opera sui singoli bit 
mettendoli a zero o a uno e che risultati se 
ne ottiene. 

Quando il bit 0 e' a 1 e' attivato lo Z80, 
quando e' messo a zero 1' 8502. Da notare che 
questo bit e' sempre a 0 quando si usa il 
modo 64. 

I bits 1 e 2 non sono utilizzati mentre il 
bit 3 può ' essere usato come bit di uscita 
per il buffer del bus seriale in modo FAST. 
Oppure per il segnale di abilitazione del 
disco. 

I bits 4 e 5 non sono attivi nel modo 128. 
Servono invece nel modo 64 per controllare, 
essendo bidirezionali, se le linee relative 
alla porta dei cardtridges sono attive. Se 
queste due linee sono attive allora il 
controllo passa appunto ai cartridges 
inseriti. Fare attenzione alle notevoli 
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possibilità' di simulazione attiva di queste 
linee per la protezione e sprotezione dei 
programmi. 

Se il bit 6 contiene 1 sara ' attivo il modo 
64 se 0 il modo 128. Ricordiamo che all' 
accensione o qualora si dia o si simuli un 
RESET verrà' attivato sempre il modo 128, a 
meno che non si operi con i tasti come 
indicato nella guida e come si può' vedere 
sia nel corso del presente manuale che sulla 
guida. 

Infine il bit 7 indica se siamo in 40 (=1) o 
in 80 (=0) colonne. 


I PUNTATORI PER LE PAGINE 


I puntatori per le pagine sono 4 registri che 
consentono un' allocazione indipendente delle 
pagine 0 e 1 quando si opera sotto entrambi i 
processori. 

Per la rilocazione della pagina zero avremo a 
disposizione il puntatore HI (POH) di pagina 
zero ed il puntatore di LO (POL) della stessa 
pagina. 

I bits 0 e 3 del registro POH corrisponde 
agli indirizzi di trasferimento TA16 e TA19 
rispettivamente per ogni ingresso di pagina 0 
e cioè' $0000-$00FF. 

In un sitema a 128K il bit 0 controlla la 
generazione di CAsO e CASI a seconda di che 
sia esso alto o basso mentre i bit 1-23 sono 
ignorati. 

In un sistema a 256K i bits 0 e 1 vengono 
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direttamente trasferiti su TA16 e TA17 mentre 
i bits 2 e 3 sono ignorati. Invece in un 
sistema da lMega i bits 2 e 3 divengono i 
bits di estensione indirizzi TA18 e TA19, 
mentre i restanti vanno a zero. 

I bits di ROM e dei blocchi di I/O 
definiscono quali pagine vengono fisicamente 
identificate come pagina zero per determinare 
gli accessi di tutta la pagina. 

Una operazione di scrittura sui registri di 
POH resta immagazzinata fino ad un' 
operazione analoga su POL. 

I bits da 0 a 7 di POL corrispondono agli 
indirizzi di trasferimento da TA8 a TA15 per 
un qualsiasi accesso a pagina 0 fino ad un' 
eventuale modifica. 

In questo caso per modifica si intende 
naturalmente una rilocazione della pagina 
zero. Un qualsiasi accesso alla pagina zero, 
dopo il rilocamento viene riportato alla 
funzione originale. 

Un' operazione di scrittura su questi 
registri attiva il trasferimento di pagina 0 
che viene attivato al successivo ciclo del 
segnale di clock (LO). 

POL e' di indirizzo $D507 nello spazio di 
I/O, il registro POH e' di indirizzo $D508. 

I puntatori di pagina 1 (PlH) e (PlL) fanno 
esattamente le stesse cose di quelli visti 
per la pagina zero. Gli indirizzi sono PlL a 
$D509 e PlH a $D50A. 

Da notare che entrambi i registri pari sono 
messi a zero da un' operazione di RESET 
abilitando cosi' le reali pagine zero e uno 
ed i relativi accessi. 
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I REGISTRI DI SISTEMA 


Questi sono registri di versione sistema di 
indirizzo $D50B nel blocco di I/O. 

Questo e ' un registro a sola lettura che 
riporta un codice contenente la versione del 
MMU oltre chele possibilità' e le dimensioni 
del sistema di memoria. 

I bits da 0 a 3 contengono il numero di 
versione MMU del sistema. Non sono molto 
interessanti almeno a livello attuale mentre 
potranno essere validi in futuro. 

I bits da 4 a 7 danno informazioni sulla 
memoria totale disponibile nella 
configurazione. 

Questo computer, e pare che negli USA sia 
stato fatto, si può' espandere fino ad 1 
Mega-byte di memoria. Il contenuto standard 
di questi registri e' di 2 BANCHI di 64 K con 
un valore di $20 
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APPENDICI 






LE APPENDICI 


Abbiamo ritenuto importante per i lettori 
allegare a questo volume una serie di 
appendici che potrebbero rivelarsi di 
utilità' sia per una migliore comprensione 
del Sistema Operativo stesso sia per quello 
che ci e ' sembrato un necessario 
approfondimento. 

Non vogliamo che marginalmente entrare nel 
campo dell' Hardware al quale probabilmente 
sara ' dedicato un apposito volume, ma e' 
necessario cercare di mettere bene in luce 
gli stretti rapporti che collegano la parte 
SOFTWARE del Sistema Operativo di un computer 
con i componenti che sono utilizzati. 
Cercheremo quindi di mettere in luce il 
rapporto di funzionalità' e di 

interdipendenza che lega i principali 
componenti. Della MMU abbiamo già' 
approfonditamente parlato, mentre del 
microprocessore 8502 cuore del computer 
stesso non e ' necessario dare nessuna 
informazione perche ' queste riguardano 
essenzialmente 1' HARDWARE. 

Tratteremo quindi dei seguenti integrati e 
delle loro funzioni: 

**VIC II 

* *CIA 

* *SID 

**8563 VDC 

La parte relativa poi allo Z-80 sara' 
trattata solo con riferimento alle routines 
di BOOT del sistema e non come CPM perche ' 
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anche questo richiede un manuale a parte. 

Di ogni integrato daremo le caratteristiche 
principali e la mappa dei registri 
spiegandone brevemente il significato. 


L' INTEGRATO VIC II 


Il nome di questo integrato VIDEO INTERFACE 
CONTROLLER deriva da uno dei primi integrati 
impiegato dalla Commodore sul vecchio VIC-20. 
Si differenzia da quello presente sul CBM64, 
pur mantenendone una piena compatibilita', 
essenzialmente per il numero dei registri e 
di conseguenza per le possibilità' che ne 
derivano. 

A grandi linee le sue caratteristiche sono le 
seguenti : 


Gestione della RAM video 
Generatore di caratteri 

Manipolazione completamente autonoma di 16 K 
di RAM dinamica 
Gestione dell ' INTERRUPT 
Gestione del RASTER 

Visualizzazione e controllo SPRITES 
Gestione del multicolore in modo TESTO 
Generazione e controllo del segnale standard 
NTSC 

Gestione modo MULTICOLR 160x200 pixel con 4 
colori 

Gestione dei 16 colori 
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Gestione del modo alta risoluzione 320x200 
pixel 

Gestione e controllo della penna luminosa 


I REGISTRI DEL VIC II 


Vediamone in dettaglio i registri di 
controllo che sono 49 con indirizzo di 
partenza $D000. 


REGISTRI DA 0 A 15 Questi registri gestiscono 
le coordinate, rispettivamente, X e Y degli 
Sprites dal numero 0 allo Sprite numero 7. Da 
notare che, per X, il bit 9 o bit di overflow 
si rileva nel registro 16 sempre del VIC II, 
mentre per Y non e' necessario il bit di 
overflow. 

REGISTRO 16 Contiene come detto il bit di 
overflow degli sprites o Most Significative 
Bit (MSB) 

REGISTRO 17 Registro di controllo linee 

REGISTRO 18 Controlla il numero di linea al 
quale dovrebbe essere generato un IRQ raster. 
Il nono bit della linea di raster e' nel bit 
7 del registro 17. 

REGISTRO 19 Parte X della posizione di 
schermo dove viene rilevato il raggio. 


REGISTRO 20 Come sopra per Y 
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REGISTRO 21 E ' dedicato al controllo dell' 
attivazione degli sprites. I bit da 0 a 7 si 
riferiscono ai relativi sprites che sono 
attivi quando hanno valore 1. 

REGISTRO 22 Registro di controllo 2 per le 
colonne di schermo. 

REGISTRO 23 Come il 21 per 1' espansione 
degli sprites sull ' asse X 

REGISTRO 24 Contiene nei bits 1-4 gli 

indirizzi per il generatore di caratteri RAM. 
Nei bits 4-7 per la RAM video 

REGISTRO 25 Indica quale registro genera un 
INTERRUPT secondo la seguente tabella: 

Bit 0 = registro 18 

Bit 1 = " 31 

Bit 2 = " 30 

Bit 3 = dal penna luminosa su piedino LP 

REGISTRO 26 Come il precedente ma per 

INTERRUPT MASK 

REGISTRO 27 Registro di priorità' sullo 

sfondo per i singoli sprites. 

REGISTRO 28 Controllo sui singoli sprites se 
devono essere in modo multicolore 

REGISTRO 29 Come registro 23 ma per 1 ' asse Y 

REGISTRO 30 Controlla la collisione fra 

sprites 
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REGISTRO 31 Controllo di collisione fra 
sprites e fondo 

REGISTRO 32 Fissa i colori del bordo 

REGISTRI DA 33 A 36 Controllano i colori di 
fondo 

REGISTRI 37 E 38 Controllo degli sprites in 
multicolor 

REGISTRI DA 39 A 46 Ognuno di questi registri 
controlla il colore del singolo Sprite 

REGISTRO 47 I bits da 0 a 3 controllano la 
scansione di tastiera. Gli altri bits sono 
inutilizzati 

REGISTRO 48 II bit 0 di questo registro 
determina se si opera a 1 o 2 MHz. 


IL SOUND INTERFACE DEVICE 


Il SID abbreviazione di Sound Interface 
Device e ' un potente sintetizzatore 
polifonico che,per quanto abbia costituito 
uno dei punti di forza del vecchio CBM 64, 
non e' stato certamente sfruttato per intero 
nelle sue capacita'. Sul C128 e' riportato 
pari pari. 

Vediamone le caratteristiche principali: 


Uscita a 3 voci completamente indipendenti e 
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liberamente programmabili 

4 tipi di forme d' onda assegnabile e quindi 
programmabile per ogni voce 
3 filtri 

Generatore di inviluppo per ogni voce 
2 ring modulator 

Opzione alternativa per sorgenti sonore 
esterne 

Controllo di due convertitori analogico 
digitali 


Gli indirizzi del SID sono posti a partire da 
$D4 00 (54272) 

I REGISTRI SID 


REGISTRO 0 Byte basso dell' oscillatore per 
la voce 1 

REGISTRO 1 Byte alto o superiore dell ' 
oscillatore per la stessa voce 

REGISTRO 2 Controlla 1' ampiezza d' impulso 
per la voce 1 (LSB) 

REGISTRO 3 Come sopra per MSB. Di questi due 
registri che provvedono al controllo dell' 
onda quadra dei generatori solo i bits 0-3 
sono utilizzati. 

REGISTRO 4 Controllo per la voce 1 secondo i 
seguenti valori immgazzinati nei singoli 
bits : 
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**Bit 0 (KEY) controlla il generatore di 

inviluppo. Quando passa da valore 0 a valore 
1 il VOLUME della voce 1 si incrementa da 0 
al massimo, contenuto nel REGISTRO 24 con un 
tempo di ATTACK e di DECAY specificati nel 
REGISTRO 5 e con un livello di SOSTEGNO di 
registro 6. 

**Bit 1 (SYNC) controlla la sincronizzazione 
fra registro 1 e 3 

**Bit 2 (RING) controllo per forma a tringolo 
dell' oscillatore 1 (WAVEFORM) 

**Bit 3 (TEST) controlla che, in funzione 
della presenza di altre forme d' onda 
generate, sia disabilitata il rumore di fondo 
(NOISE) 

**Bit 4 (TRIA) seleziona la forma d' onda 
detta a TRIANGOLO 

**Bit 5 (SAWT) come sopra per la forma 
SAWTOOH 

**Bit 6 (PULS) seleziona la forma d' onda 
quadra. E' in relazione con i contenuti dei 
registri 2 e 3 

**Bit 7 (NOI) seleziona il rumore di fondo o 
NOISE 

NOTA 

E' importante notare che e' possibile, con 
riferimento ai registri 4-7, selezionare 
forme d' onda diverse allo stesso tempo. 


REGISTRO 5 Con i bits 0-3 si determina il 
tempo necessario perche' il volume si porti 
dal massimo livello a quello di sostegno 
(SUSTAIN). E' possibile una scelta di tempi 
da 6 millisecondi a 24 secondi per questo 
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tempo. 

Con i bits da 4 a 7 invece si seleziona il 
tempo per portarsi da 0 al massimo livello di 
volume. L' intervallo va da 2 millisecondi a 
8 secondi 

REGISTRO 6 Con i bits 0-3 si determina il 
tempo entro il quale si passa dal livello di 
sostegno a zero relativamente al volume. L' 
intervallo di tempo selezionabile va da 6 
millissecondi a 24 secondi. 

I bits da 4 a 7 specificano invece il volume 
che deve essere mantenuto (LIVELLO DI 
SOSTEGNO) dopo che e' stato raggiunto il 
livello di sostegno e prima che sia 
abbandonato quel volume. 

REGISTRI DA 7 A 13 Questi registri 
controllano la voce 2 allo stesso modo che i 
registri visti da 0 a 6 eseguono per la voce 
1 . 

REGISTRI DA 14 A 20 Questi registri 
controllano la voce 3 allo stesso modo che i 
registri visti da 0 a 6 eseguono per la voce 

1. 


REGISTRO 21 Controllo 
filtraggio. Byte basso 

della 

frequenza 

di 

REGISTRO 22 Controllo 
filtraggio. Byte alto 

della 

frequenza 

di 

REGISTRO 23 Controllo 

di 

risonanza 

dei 


filtri. I bits da 0 a 2 controllano 
rispettivamente le voci 1-2-3. 

Il bit 3 e' rivolto verso il controllo 
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esterno. 

I bits da 4 a 7 controllano invece la 
frequenza di risonanza dei filtri 

REGISTRO 24 controlla il volume e i filtri: 

**Bits 0-3 Controllo del volume-totale 
**Bit 4 Attiva il filtro passabasso 
**Bit 5 Attiva il filtro passabanda 
**Bit 6 Attiva il filtro passalto 

II bit 7 controlla la voce 3 quando questa e' 
impiegata come principale rispetto alle 
altre. 

REGISTRI 25 E 26 Controllano rispettivamente 
i convertitori analogico digitali 1 e 2. 
Ricordiamo che un convertitore di questo tipo 
serve appunto per convertire un segnale 
analogico, ad esempio un voltaggio, in uno 
digitale. Come vediamo il SID ne contiene due 
con un voltaggio di riferimento di 2.5 volts. 
Vedi HARDWARE per maggiori approfondimenti e, 
sopratutto per le applicazioni. 

REGISTRO 27 Generatore di rumore bianco per 
la voce 3 

REGISTRO 28 Generatore di inviluppo per la 
voce 3. 


L' INTEGRATO 8563 VDC 


Al Commodore 128 possono essere collegati 2 
Monitor, di cui uno normale che sara ' 
controllato dal VIC II visto in precedenza e 
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che consente quindiuna piena compatibilita' 
con il CBM 64 ed uno ad 80 colonne 
controllato appunto da questo nuovo integrato 
che costituisce pertanto una delle maggiori 
caratteristiche differenziali rispetto al 
vecchio 64. 

L' 8563 controlla dunque 1' uscita ad 80 
colonne, la controlla anche in un monitor RGB 
a colori e può' visualizzare grafici in alta 
risoluzione su 640x200 punti. 

Ne vedremo ora i registri anche se, a nostro 
modesto parere, per illustrare questo 
componente ci vorrebbe realmente un manuale 
dedicato allo scopo. 


I REGISTRI DEL 8563 


REGISTRO 0 Controlla il numero di caratteri 
per linea che possono essere un massimo di 
126. 

REGISTRO 1 Gestisce il numero di caratteri 
per linea. Il valore di default e' 80 

REGISTRO 2 Controllo di sincronizzazione sul 
bordo sinistro linea 

REGISTRO 3 Sincronizzazione orizzontale del 
carattere sullo schermo 

REGISTRO 4 Controlla il numero di linee 
verticali. 

REGISTRO 5 Serve per controllare il registro 



precedente 


REGISTRO 6 Contiene il numero di caratteri 
rappresentabili. 

REGISTRO 7 Definisce il bordo superiore dello 
schermo. Se il contenuto di questo registro 
e' incrementato lo schermo si muove verso 1' 
alto. Se e' decrementato verso il basso. 

REGISTRO 8 Determina il modo di interlace 

REGISTRO 9 Determina il numero di linee 
raster per carattere in verticale 

REGISTRO 10 Determinano il modo di 

lampeggiamento del cursore. 

REGISTRO 11 Controlla la linea alla quale il 
cursore si fermerà'. 

REGISTRO 12 Controlla 1' indirizzo di inizio 
alto della RAM video che e' controllata 
appunto dal 8563. 

Ricordiamo che la RAM video inizia dall' 
indirizzo $0000 ma nella speciale memoria del 
VDC. 

REGISTRO 13 Come sopra per Byte basso. Esiste 
quindi una corrispondenza univoca e 
necessaria fra questi due registri. 

REGISTRO 14 Controlla la posizione del 
cursore (Byte HI) 

REGISTRO 15 Controlla la posizione del 
cursore (Byte LO) 
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REGISTRI 16 E 17 Controllano rispettivamente 
gli indirizzi e quindi le posizioni verticali 
ed orizzontali della penna luminosa. 

Questi registri possono essere solo letti, 
mentre 1 ' aggiustaggio deve essere fatto 
usando i raster. 

REGISTRO 18 Controlla 1' aggiornamento dell' 
indirizzo di memoria della RAM controllata da 
questo integrato. Indirizzo HI 

REGISTRO 19 Come sopra ma per indirizzo LO 

REGISTRO 20 Controlla il byte HI dell' 
indirizzo di partenza memoria. 

REGISTRO 21 Opera in connessione con il 
precedente ma per 1' indirizzo LO. 

REGISTRO 22 Determina il numero di line 
visualizzate orizzontalmente. Definisce anche 
la larghezza del carattere. 

REGISTRO 23 Determina il numero di linee 
verticali. Definisce 1' altezza del singolo 
carattere. 

REGISTRO 24 Controlla lo scorrimento lento 
verticale. 

Il bit 6 e' anche il bit di REVERSE che 
consente di eseguire appunto il reverse dell' 
intero schermo. 

REGISTRO 25 Come sopra per 1' asse x. 

In particolare pero ' : 
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**Bit 7 abilita il modo testo 

**Bit 6 contiene informazioni sul colore del 
carattere 

**Bit 5 controlla il modo semi-grafico 

**Bit 4 controlla 1 ' ampiezza del carattere 

visualizzato 

**Bit 0-3 controllano lo SMOOTH scrolling. 
NOTA 

L' uso e 1' impiego di questi due registri e' 
particolarmente complesso ed va al di la' 
degli obbiettivi di questo volume. 

REGISTRO 26 Controlla i colori ed i modi 
dell' interno e dell' esterno dello schermo. 

REGISTRO 27 Controlla il numero di Bytes che 
devono essere aggiunti alla RAM video per 
ogni colonna. 

Se si desidera ridefinire un carattere in 
ampiezza i valori contenuti in questo 
registro devono essere manipolati via 
SOFTWARE. 

REGISTRO 28 I bits 5-7 determinano la base 
del generatore di caratteri. 

Il bit 4 definisce il tipo di RAM impiegata 
(1=4164: 0=4416). 

Gli altri bit non sono al momento utilizzati. 

REGISTRO 29 Controlla ed indica la 

sottolinatura di una data linea. 

Può' anche essere usato per la sovralinea. 

REGISTRO 30 Contiene il numero di caratteri 
che servono per aggiornare 1 ' indirizzo di 
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COPY del contenuto RAM del VDC quando si 
eseguono degli spostamenti. 

REGISTRO 31 Contiene i dati che devono essere 
scritti in una locazione di memoria. 

Se viene letta una locazione di memoria il 
relativo contenuto appare in questo registro. 

REGISTRO 32 Definisce il 1 ' indirizzo di 
partenza del blocco di memoria chè~ deve 
essere copiato. Parte HI. 

REGISTRO 33 Come sopra, ma per la parte LO 
del1 ' indirizzo. 

REGISTRO 34 Riporta il numero di caratteri 
dall" inizio della linea che deve essere 
visualizzata. 

REGISTRO 35 Come il precedente 

REGISTRO 36 Specificano il refresh della 
memoria del VDC. 

Il valore normale e' 245. qualsiasi modifica 
deve essere fatta anche in funzione del tipo 
di RAM impiegata e comunque con molta 
accuratezza per evitare perdite di dati di 
cui si potrebbe accorgersi solo con molto 
ritardo. 


COMPLEX INTERFACE ADAPTER O CIA 


Come dice il nome stesso si tratta di 
interfacce verso il mondo esterno. 

Vediamone le caratteristiche: 
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Manipolazione dei registri di 8 bit per 
uscite seriali di I/O 

Controllo dei due timers di 16 bit 
completamente indipendente 

Controllo dell ' orologio con temporizzatore 
programmabile 

Controllo delle 16 linee di Input/Output 
sepratamente programmabili 

Controllo dell' HANDSHAKE per I/O su 8 o 16 
bit. 


A differenza di quanto scritto fino a questo 
momento per gli altri integrati qui daremo 
anche il tipo di accesso per ogni registro 
oltre alla sigla attribuita dal costruttore 
per ogni, singolo registro. 


DESCRIZIONE DEI REGISTRI CIA 


REGISTRO 0 PRA 
Accesso: lettura scrittura 

Controlla la porta A corrispondente ai pin 
PA0-PA7 

REGISTRO 1 PRB 
Accesso: lettura scrittura 

Controlla la porta B corrispondente ai pin 
PB0-PB7 

REGISTRO 2 DDRA 
Accesso: lettura scrittura 
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Determina la direzione dei dati per i 
corrispondenti bits della porta A. 
Abbreviazione di DATA DIRECTION REGISTER A 

REGISTRO 3 DDRB 
Accesso: lettura scrittura 

Determina la direzione dei dati per i 
corrispondenti bits della porta B. 
Abbreviazione di DATA DIRECTION REGISTER B 

REGISTRO 4 TA LO 
Accesso: lettura scrittura 

Quando e ' in lettura restituisce 1 ' attuale 
stato del byte di ordine LO del 
temporizzatore A. 

Quando e ' in scrittura viene caricato con il 
byte LO del valore da cui il timer deve 
essere riportato a zero. In pratica e ' un 
contatore per il timer. 

TA LO sta per TIMER A LOW BYTE 

REGISTRO 5 TA HI 
Accesso: lettura scrittura 

Quando e ' in lettura restituisce 1 ' attuale 
stato del byte di ordine HI del 
temporizzatore A. 

Quando e ' in scrittura viene caricato con il 
byte LO del valore da cui il timer deve 
essere riportato a zero. In pratica e' un 
contatore per il timer. 

TA HI sta per TIMER A HIGH BYTE 

REGISTRO 6 TB LO 
Accesso: lettura scrittura 
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Quando e ' in lettura restituisce 1 ' attuale 
stato del byte di ordine LO del 

temporizzatore B. 

Quando e" in scrittura viene caricato con il 
byte LO del valore da cui il timer deve 

essere riportato a zero. In pratica e' un 
contatore per il timer. 

TB LO sta per TIMER B LOW BYTE 

REGISTRO 7 TB HI 
Accesso: lettura scrittura 

Quando e ' in lettura restituisce 1 ' attuale 
stato del byte di ordine HI del 

temporizzatore B. 

Quando e ' in scrittura viene caricato con il 
byte HI del valore da cui il timer deve 

essere riportato a zero. In pratica e' un 
contatore per il timer. 

TB HI sta per TIMER B HIGH BYTE 

REGISTRO 8 TOD 10 
Accesso: lettura scrittura 

Controllo del clock per i decimi di secondo 

REGISTRO 9 TOD SEC 
Accesso: lettura 

Controllo clock per secondi 

REGISTRO 10 TOD MIN 
Accesso: lettura 

Controllo clock per minuti. E' previsto in 
scrittura per controllo registro 8. 
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REGISTRO 11 TOD HR 
Accesso: lettura 

Controllo clock per ore. 

Anche questo può' essere operativo in 
scrittura per controllo registro 8. 

REGISTRO 12 SDR 

Accesso: lettura scrittura 

Registro seriale di dati. Il colloquio 
avviene tramite il pin SP. 

REGISTRO 13 ICR 
Accesso: lettura scrittura 

In lettura i bit da 0 a 7 controllano 
rispettivamente i timeout dei timer A e B, il 
clock dell' allarme, 1' SDR del precedente 
registro, il segnale sul PIN FLAG. 

Mentre i bits 5 e 6 sono sempre =0 il bit 7 
controlla 1' INTERNAL MASK. 

In fase di scrittura e' del tutto uguale, 
cioè' ha le stesse funzioni opposte a quelle 
della lettura. 

Per il BIT 7 invece ha la funzione di fissare 
il valore dei bits di mask che saranno a 0 
quando questi e' =0 e quindi a 1 quando il 
bit 7 viene posto a 1. 

L' abbreviazione ICR sta per INTERRUPT 
CONTROL REGISTER. 

REGISTRO 14 CRA 
Accesso: Lettura scrittura 

E' il registro di controllo A. I singoli bits 
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necessitano di una spiegazione piu 
approfondita. 

**Bit 0 se 1 Timer A start se 0 stop 

**Bit 1 se 1 segnale di TIMEOUT per timer A 

su pin PB6 

**Bit 2 se 1 ogni TIMEOUT su timer A inverte 

PB6. Se a 0 allora ogni TIMEOUT su PB6 invia 

un segnale alto, sempre su PB6 per la durata 
del clock di sistema. 

**Bit 3 se 1 il Timer A esegue un conto alla 
rovescia fino a zero e si ferma. Se a 0 
esegue un conto alla rovescia e continua. 
**Bit 4 se 1 esegue un caricamento assoluto 
delvalore iniziale sul timer A. Deve essere 
appunto posto = 1 (normalmente e7 infatti =0) 
per ogni caricamento assoluto. 

Ha funzione di STROBE. 

**Bit 5 determina il source del trigger 

**Bit 6 se 1 allora SP e' in uscita. Se 0 

allora SP e' in ingresso 

**Bit 7 controlla il clock del RT 

Se 1 e' 50 Hz. Se 0 e' 60 Hz 


REGISTRO 15 CRB 
Accesso: lettura scrittura 

Stesse funzioni viste nel registro precedente 
per B. 

Sara' interessato in questo caso il pin PB7 
invece del PB6 
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Di seguito 1' elenco delle parole chiave del 
Basic 7.0, cioè' i comandi, delle relative 
abbreviazioni con le quali possono essere 
scritte ed infine dei valori TOKENIZZATI con 
i quali vengono gestiti dall' inteprete. 


COMANDO 

ABBREVIAZIONE 

ABS 

A 

shif t 

B 

APPEND 

A 

shif t 

P 

ASC 

A 

shift 

S 

ATN 

A 

shift 

T 

AUTO 

A 

shift 

U 

BACKUP 

BA 

shift 

c 

BANK 

B 

shift 

A 

BEGIN 

B 

shift 

E 

BEND 

BE 

shift 

N 

BLOAD 

B 

shift 

L 

BOOT 

B 

shift 

0 

BOX 

nessuna 


BSAVE 

B 

shift 

S 

BUMP 

B 

shift 

u 

CATALOG 

C 

shift 

A 

CHAR 

CH 

shift 

A 

CHR$ 

C 

shift 

H 

CIRCLE 

C 

shift 

I 

CLOSE 

CL 

shift 

0 

CLR 

C 

shift 

L 

CMD 

c 

shift 

M 

COLLECT 

COLL 

shift 

E 

COLINT 

nessuna 


COLLISION 

COL 

shift 

L 

COLOR 

COL 

shift 

0 

CONCAT 

C 

shift 

0 
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COMANDO 

CONT 

COPY 

COS 

DATA 

DEC 

DCLEAR 
DCLOSE 
DEF FN 
DELETE 
DIM 

DIRECTORY 

DLOAD 

DO 

DOPEN 

DRAW 

DSAVE 

DVERIFY 

EL 

END 

ENVELOPE 

ER 

ERR$ 

EXIT 

EXP 

FAST 

FETCH 

FILTER 

FOR 

FRE 

FNXX 

GET 

GETKEY 

GET# 

GOSUB 
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ABBREVIAZIONE 


nessuna 
CO shift P 
nessuna 
D shift A 
nessuna 
DCL shift E 
D shift C 
nessuna 
DE shift L 
D shift I 
DI shift R 
D shift L 
nessuna 
D shift 0 
D shift R 
D shift S 
D shift V 
nessuna 
nessuna 
E shift N 
nessuna 
E shift R 
EX shift I 
E shift X 
nessuna 
F shift E 
F shift I 
F shift 0 
F shift R 
nessuna 
G shift E 
GETK shift E 
nessuna 
GO shift S 
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COMANDO 

ABBREVIAZIONE 

G064 


nessuna 


GOTO 


G shift 

0 

GRAPHIC 


G shift 

R 

GSHAPE 


G shift 

S 

HEADER 


HE shift 

A 

HELP 




HEX$ 


H shift 

E 

IF...GOTO 


nessuna 


IF...THEN.. 

.ELSE 

nessuna 


INPUT 


nessuna 


INPUT # 


I shift 

N 

INSTR 


IN shift 

S 

INT 


nessuna 


JOY 


J shift 

0 

KEY 


K shift 

E 

LEFT$ 


LE shift 

F 

LEN 


nessuna 


LET 


L shift 

E 

LIST 


L shift 

I 

LOAD 


L shift 

0 

LOCATE 


LO shift 

C 

LOG 


nessuna 


LOOP 


LO shift 

0 

MID$ 


M shift 

I 

MONITOR 


MO shift 

N 

MOVESHAPE 


nessuna 


MOVSPR 


M shift 

0 

NEW 


nessuna 


NEXT 


N shift 

E 

ON...GOSUB 

ON. . 

.GO shift 

S 

ON...GOTO 

ON. 

..G shift 

0 

OPEN 


0 shift 

P 

PAINT 


P shift 

A 

PEEK 


PE shift 

E 

PEN 


P shift 

E 
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COMANDO ABBREVIAZIONE 


PI 

PLAY 

POKE 

POS 

POT 

PRINT 

PRINT# 

PRINT USING 

PUDEF 

RBUMP 

RCLR 

RDOT 

READ 

RECORD 

REM 

RENAME 

RENUMBER 

RESTORE 

RÉSUMÉ 

RETURN 

RGR 

RIGHT$ 

RLUM 

RND 

RREG 

RSPCOLOR 

RSPPOS 

RSPR 

RSPRITE 

RUN 

RWINDOW 

SAVE 

SCALE 

SCNCLR 


nessuna 


P 

shif t 

L 

PO 

shif t 

K 

nessuna 


P 

shif t 

0 


? 


P 

shif t 

R 

PUS 

shif t 

I 

P 

shif t 

U 

RB 

shif t 

U 

R 

shif t 

c 

R 

shif t 

D 

RE 

shif t 

A 

R 

shif t 

E 

nessuna 


RE 

shif t 

N 

REN 

shif t 

U 

RE 

shif t 

S 

RES 

shif t 

U 

RE 

shif t 

T 

R 

shif t 

G 

R 

shif t 

I 

nessuna 


R 

shif t 

N 

R 

shif t 

R 

RSP 

shif t 

C 

R 

shif t 

S 

nessuna 


RSP 

shif t 

R 

R 

shif t 

U 

R 

shif t 

w 

S 

shift 

A 

se 

shif t 

A 

S 

shift 

C 
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COMANDO 

ABBREVIAZIONE 

SCRATCH 

SC shift 

R 

SGN 

S shift 

G 

SIN 

S shift 

I 

SLEEP 

S shift 

L 

SLOW 

nessuna 


SOUND 

S shift 

0 

SPC( 

nessuna 


SPRCOLOR 

SPR shift 

C 

SPREDEF 

SPR shift 

D 

SPRITE 

S shift 

P 

SPRSAV 

SPR shift 

S 

SQR 

S shift 

Q 

SSHAPE 

S shift 

S 

STASH 

S shift 

T 

STATUS 

nessuna 


STEP 

ST shift 

E 

STOP 

ST shift 

0 

STR$ 

ST shift 

R 

SWAP 

S shift 

W 

SYS 

nessuna 


TAB ( 

T shift 

A 

TAN 

nessuna 


TEMPO 

T shift 

E 

TI 

nessuna 


TI $ 

nessuna 


TO 

nessuna 


TRAP 

T shift 

R 

TROFF 

TRO shift 

F 

TRON 

TR shift 

0 

UNTIL 

U shift 

N 

USR 

U shift 

S 

VAL 

nessuna 


VERIFY 

V shift 

E 

VOL 

V shift 

0 


COMANDO 

ABBREVIAZ 

IONE 

WAIT 

W shift 

A 

WHILE 

W shift 

H 

WIDTH 

WI shift 

D 

WINDOW 

W shift 

I 

XOR 

X shift 

0 
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COMANDI TOKEN 


END 

$80 

FOR 

$81 

NEXT 

$82 

DATA 

$83 

INPUT# 

$84 

INPUT 

$85 

DIM 

$86 

READ 

$87 

LET 

$88 

GOTO 

$89 

RUN 

$8A 

IF 

$8B 

RESTORE 

$ 8C 

GOSUB 

$8D 

RETURN 

$8E 

REM 

$8F 

STOP 

$90 

ON 

$91 

WAIT 

$92 

LOAD 

$93 

SAVE 

$94 

VERIFY 

$95 

DEF 

$96 

POKE 

$97 

PRINT# 

$98 

PRINT 

$99 

CONT 

$9A 

LIST 

$9B 

CLR 

$9C 

CMD 

$9D 

SYS 

$9E 

OPEN 

$9F 

CLOSE 

$A0 

GET 

$Al 

NEW 

$A2 


TAB ( 

$A3 

TO 

$A4 

FN 

$A5 

SPC( 

$A6 

THEN 

$A7 

NOT 

$A8 

STEP 

$A9 

+ 

$AA 

- 

$AB 

# 

$AC 

/ 

$AD 

* 

$AE 

AND 

$AF 

OR 

$B0 

> 

$Bl 

= 

$B2 

< 

$B3 

SGN 

$B4 

INT 

$B5 

ABS 

$B6 

USR 

$B7 

FRE 

$B8 

POS 

$B9 

SQR 

$BA 

RND 

$BB 

LOG 

$BC 

EXP 

$BD 

COS 

$BE 

SIN 

$BF 

TAN 

$C0 

ATN 

$C1 

PEEK 

$C2 

LEN 

$C3 

STR$ 

$C4 

VAL 

$C5 

ASC 

$C6 

CHR$ 

$C7 
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LEFT$ 

$C8 


RIGHT$ 

$C9 


MIDS 

$CA 


GO 

$CB 


RGR 

SCC 


RCLR 

$CD 


POT 

$CE 

$02 

BUMP 

$CE 

$03 

PEN 

$CE 

$04 

RSPPOS 

$CE 

$05 

RSPRITE 

$CE 

$06 

RSPCOLOR 

$CE 

$07 

XOR 

$CE 

$08 

RWINDOW 

$CE 

$09 

POINTER 

$CE 

$0A 

JOY 

SCF 


RDOT 

$D0 


DEC 

$D1 


HEXS 

$D2 


ERR$ 

$D3 


INSTR 

$D4 


ELSE 

$D5 


RÉSUMÉ 

$D6 


TRAP 

$D7 


TRON 

$D8 


TROFF 

$D9 


SOUND 

$DA 


VOL 

$DB 


AUTO 

$DC 


PUDEF 

$DD 


GRAPHIC 

$DE 


PAINT 

$DF 


CHAR 

$E0 


BOX 

SEI 


CIRCLE 

$E2 


GSHAPE 

$E3 


SSHAPE 

$E4 



DRAW 

$E5 


LOCATE 

$E6 


COLOR 

$E7 


SCNCLR 

$E8 


SCALE 

$E9 


HELP 

$EA 


DO 

$EB 


LOOP 

SEC 


EXIT 

$ED 


DIRECTORY 

$EE 


DSAVE 

$EF 


DLOAD 

$F0 


HEADER 

$F1 


SCRATCH 

$F2 


COLLECT 

$F3 


COPY 

$F4 


RENAME 

$F5 


BACKUP 

$F6 


DELETE 

$F7 


RENUMBER 

$F8 


KEY 

$F9 


MONITOR 

$FA 


USING 

$FB 


UNTIL 

$FC 


WHILE 

$FD 


BANK 

$FE 

$02 

FILTER 

$FE 

$03 

PLAY 

$FE 

$04 

TEMPO 

$FE 

$05 

MOVSPR 

$FE 

$06 

SPRITE 

$FE 

$07 

SPRCOLOR 

$FE 

$08 

RREG 

$FE 

$09 

ENVELOPE 

$FE 

$0A 

SLEEP 

$FE 

$0B 

CATALOG 

$FE 

$0C 

DOPEN 

$FE 

$0D 


APPEND 

$FE 

$0E 

DOLOSE 

$FE 

$0F 

BSAVE 

$FE 

$10 

BLOAD 

$FE 

$11 

RECORD 

$FE 

$12 

CONCAT 

$FE 

$13 

DVERIFY 

$FE 

$14 

DCLEAR 

$FE 

$15 

SPRSAV 

$FE 

$16 

COLLISION 

$FE 

$17 

BEGIN 

$FE 

$18 

BEND 

$FE 

$19 

WINDOW 

$FE 

$1A 

BOOT 

$FE 

$1B 

WIDTH 

$FE 

$1C 

SPRDEF 

$FE 

$1D 

QUIT 

$FE 

$1E 

STASH 

$FE 

$1F 

FETCH 

$FE 

$21 

STASH 

$FE 

$23 

OFF 

$FE 

$24 

FAST 

$FE 

$25 

SLOW 

$FE 

$26 
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La tabella precedente mostra i valori sonori 
dei registri di quattro ottave di note. I 
valori sonori sono usati come secondo 
parametro del comando SOUND. Per utilizzare 
la prima nota nella tabella (A - valore 
sonoro dei registri 7) utilizzare il 7 come 
secondo numero dopo il comando SOUND - SOUND 
1,7,30. 

Per trovare i valori sonori dei registri per 
frequenze non comprese nella tabella 
utilizzare la formula seguente: 

VALORE SONORO DEI REGISTRI = 1024- 
(111860.781/FREQUENZA) 

Sia la tabella dei valori sonori dei registri 
sia la formula sono applicati a televisori 
NTSC, il sistema standard utilizzato negli 
Stati Uniti e in Canada. In paesi che 
utilizzano il sistema PAL,calcolare i valori 
sonori dei registri con l'aiuto della formula 
seguente : 

VALORE SONORO DEI REGISTRI = 1024 
-(11184 0.45/FREQUENZA) 

TAVOLA DELLE NOTE MUSICALI 


NOTA 

VALORI SONORI 
DEI REGISTRI 

FREQUENZA 

EFFETTIVA 

A la 

7 

110 

B si 

118 

123,5 

C do 

169 

130,8 

D re 

262 

146,8 

E mi 

345 

164,7 

F fa 

383 

174,5 

G sol 

453 

195,9 

A la 

516 

220,2 

B si 

571 

246,9 

C do 

596 

261,4 

D re 

643 

293,6 

E mi 

685 

330 

F fa 

704 

349,6 

G sol 

739 

392,5 

A la 

770 

440,4 

B si 

798 

494,9 

C dò 

810 

522,7 

D re 

834 

588,7 

E mi 

854 

658 

F fa 

864 

699 

G sol 

881 

782,2 

Ala 

897 

880,7 

B si 

911 

989,9 

C do 

917 

1045 

D re 

929 

1177 

E mi 

939 

1316 

F fa 

944 

1398 

G sol 

953 

1575 
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LO Z 80 


Il fatto che sia presente su questo computer ANCHE un 
microprocessore Z-8Q, corredato dal relativo software (ma 
solo per chi dispone del disco), permette di fargira.re 
programmi scritti sotto CPM che e' un sistema operativo di 
vecchia data, ma sotto il quale i programmi scritti si 
contano a migliaia. 

Sul C128 e' presente un' integrato ROM che contiene circa 4K 
di codice Z80. in questo manuale non presentiamo il 
disassemblato completo di queste locazioni di memoria ma solo 
la prima parte cioè' quella relativa al BOOT. E ciò' perche' 
le informazioni contenute nella parte restante dell' 
integrato non possono essere variate ed anche perche ' non 
hanno realmente molto aa che vedere con il CPM stesso. All' 
accensione o RESET i valori di questa ROM di indirizo $D000 
sono riportati a inizio pagina zero ($0000). Il computer 
eseguirà' quindi tutta una serie di controlli come quello sui 
tasti, sulla presenza o meno del cartridge ecc. Dopo viene 
abilitato lo Z-80 e va a cercare se esiste il disco CPM. In 
caso affermativo parte sotto CPM altrimenti sotto 8502. 


LA ROM DELLO Z 80 


0000 

3E 

3E 


LD 

A, $3E 

Bytes di configurazione nei registri 

0002 

32 

00 

FF 

LD 

($FF0 0 ) , A 

di configurazione per Partenza (COLD 

0005 

C3 

3B 

00 

JP 

$003B 

START 

0008 

31 

77 

3C 

LD 

SP,$3C7 7 

Routine RTS80 

000B 

3E 

3F 


LD 

A, $3F 

* * * 

000D 

C3 

8C 

01 

JP 

$01 8C 

* * * 

0010 

E1 



POP 

HL 

Riporta indirizzo dallo stack 

0011 

6E 



LD 

L,(HL) 

Byte basso di indirizzo di ritorno 

0012 

C3 

20 

00 

JP 

$0020 

Salto a routine RST 20 

0015 

00 



NOP 


Riempimento di Bytes 

0016 

00 



NOP 


*** 

0017 

00 



NOP 


★ * ★ 

0018 

E1 



POP 

HL 

Come in precedenza ma con salto 

0019 

6E 



LD 

L,(HL) 

a RST 28 

001A 

C3 

28 

00 

JP 

$0028 

* * * 

001D 

00 



NOP 


Vedi sopra 

001E 

00 



NOP 


* * * 

001F 

00 



NOP 


* * * 

0020 

3A 

0F 

FD 

LD 

A,($FDOF) 

Routine 20 

0023 

Al 



AND 

A 

★ * ★ 

0024 

28 

02 


JR 

Z,$+4>$0028 

* ★ * 

0026 

2C 



INC 

L 

* ** 

0027 

2C 



INC 

L 

* * * 

0028 

26 

01 


LD 

H, $01 

Routine 28 

002A 

7E 



LD 

A,(HL) 
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002B 

23 



INC 

HL 

002C 

66 



LD 

H,(HL) 

002D 

6F 



LD 

L, A 

002E 

E9 



JP 

(HL) 

002F 

00 



NOP 


0030 

30 

35 


JR 

NC,$+55>$0067 

0032 

2F 



CPL 


0033 

31 

32 

2F 

LD 

SP,$2F32 

0036 

38 

35 


JR 

C, $+55> $006D 

0038 

C3 

FD 

FD 

JP 

$FDFD 

003B 

01 

2F 

DO 

LD 

BC,$D02F 

003E 

11 

FC 

FF 

LD 

DE,$FFFC 

0041 

ED 

51 


OUT 

(C),D 

0043 

03 



INC 

BC 

0044 

ED 

59 


OUT 

(C) ,E 

0046 

01 

05 

D5 

LD 

BC,$D505 

0049 

3E 

B0 


LD 

A, $B0 

004B 

ED 

79 


OUT 

(C) ,A 

004D 

ED 

78 


IN 

A, (C) 

004F 

2F 



CPL 


0050 

E6 

30 


AND 

$30 

0052 

28 

05 


JR 

Z,$+7>$0059 


0054 

3E 

FI 


LD 

A, $F1 

0056 

ED 

79 


OUT 

(C) ,A 

0058 

C7 



RST 

$00 

0059 

01 

0F 

DC 

LD 

BC,$DC0F 

005C 

3E 

08 


LD 

A, $08 

005E 

ED 

79 


OUT 

(C) ,A 

0060 

OD 



DEC 

C 

0061 

ED 

79 


OUT 

(C) ,A 

0063 

0E 

03 


LD 

C, $03 

0065 

AF 



XOR 

A 

0066 

ED 

79 


OUT 

(C) ,A 

0068 

OD 



DEC 

C 

0069 

3D 



DEC 

A 

006A 

ED 

79 


OUT 

(C) ,A 

006C 

OD 



DEC 

C 

006D 

OD 



DEC 

C 

006E 

3E 

7F 


LD 

A, $7F 

0070 

ED 

79 


OU 

(C) ,A 

0072 

03 



INC 

BC 

0073 

ED 

78 


IN 

A, (C) 

0075 

E6 

20 


AND 

$20 

0077 

01 

05 

D5 

LD 

BC,$D505 

007A 

28 

D8 


JR 

Z,$-38>$0054 

007C 

21 

B4 

0F 

LD 

HL,$0FB4 

007F 

01 

0A 

D5 

LD 

BC,$D50A 

0082 

16 

OB 


LD 

D, $0B 

0084 

7E 



LD 

A,(HL) 

0085 

ED 

79 


OUT 

(C) ,A 

0087 

2B 



DEC 

HL 

0088 

OD 



DEC 

C 

0089 

15 



DEC 

D 

008A 

20 

F8 


JR 

NZ,$-6 >$0084 

008C 

21 

1A 

OD 

LD 

HL,$0D1A 


Routine 30 


Routine 38 

Vai a reg. 47 del VIC II 
Scrittura di $ff su tastiera 
Nessuna estensione 
Registro 48 
Fissa a 1 MHz 

Registro di configurazione modo 
Controllo per EXMON e porta giochi 
Abilita modo 128 
Registro configurazione modo 
Rileggi 

Controllo per EXROM e giochi 
Se negativo nessun cartridge 


Abilita l'8502 e seleziona il modo 
operativo 64 
Esegui cold start 
Seleziona CRB in CIA 1 
Esegui uno stop 
Come sopra per Timer B 
* * * 

* ★ * 

Fissa tutti i bits del registro direz 
dati della porta B come Input 
* * * 

Come sopra per la porta A ma in 
output 
★ * ★ 

Decrementa BC per puntare su porta 
A 

Invia $7F alla porta A 
* ★ ★ 

Puntatore sulla porta B come input 
e lettura 

Esegui Mask out del tasto CBM 
Puntatore per modo config. registri 
Controllo tasto CBM 
Questa routine serve per caricare i 
registri di MMU con i valori presenti 
all ' ind. SOfaa 


Fine del ciclo precedente 
Copia 1 ' area da $0dla 
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008F 

11 

00 

11 

LD 

DE,$1100 

a $1100 

0092 

01 

08 

00 

LD 

BD,$0008 

Copia 8 bytes 

0095 

ED 

B0 


LDIR 


0097 

21 

E5 

OE 

LD 

HL,$0EE5 

Copia 1' area da $0ee5 

009A 

11 

DO 

FF 

LD 

DE,$FFD0 

a $ffd0 

0 09D 

01 

1F 

00 

LD 

BC,$001F 

*** 

00A0 

ED 

B0 


LDIR 

Copia 31 Bytes 

00A2 

21 

00 

11 

LD 

HL,$1100 

Vettore di salto a $1100 

00A5 

22 

FA 

FF 

LD 

($FFFA),HL 

Copia i vettori di salto in tutti e 

00A8 

22 

FC 

FF 

LD 

($FFFC),HL 

4 gli indirizzi 

00 AB 

22 

FE 

FF 

LD 

($FFFE),HL 


00AE 

22 

DD 

FF 

LD 

($FFDD),HL 


0 0B1 

C3 

EO 

FF 

JP 

$FFE0 

Vai a controllare lo Z80 


0EE5 

78 



SEI 


Disabilita gli interrupts 

OEE6 

A9 

3E 


LDA 

#$3E 

Indice di configurazione 

0EE8 

8D 

00 

FF 

STA 

$FF00 

Fissa il precdente 

0EEB 

A9 

B0 


LDA 

#$B0 

Abilita lo Z80 

0EED 

8D 

05 

D5 

STA 

$D505 

Scrivi q.s. sul reg. config. modo 

0EF0 

EA 



NOP 


Ritardo 

0EF1 

4C 

00 

30 

JMP 

$3000 

Continua 

0EF4 

EA 



NOP 


Ritardo 


0EF5 

F3 



DI 


Disabilita gli interrupt 

0EF6 

3E 

3E 


LDA 

#$3E 

Carica 17 indice di configurazione 

0EF8 

32 

00 

FF 

STA 

$FF00 

e mettilo nel registro 

0EFB 

01 

05 

D5 

LD 

BC,$D505 

Registro di config. 

0EFE 

3E 

B1 


LD 

A, $B1 

Abilita 8502 

0F00 

ED 

79 


OUT 

(C) ,A 

Registro di config. modo 

0F02 

00 



NOP 


Ritardo per ciclo 

OF03 

CF 



RST 

$08 

Continua 
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CARTOLINA DA RISPEDIRE A EVM 


□ Desidero ricevere GRATUITAMENTE il VS. Cata¬ 
logo. 

* □ Desidero ricevere lo speciale CATALOGO MANUALI 
EVM per acquisti a prezzi scontati. 

Sono in possesso di un computer. 

con le seguenti periferiche. 


SEGNALAZIONE DI ERRORI 


* Riservato ESCLUSIVAMENTE ai possessori di questo 
manuale. 


COGNOME 

VIA. 

CITTA'.. 


NOME 


CAP 


















































IL SISTEMA OPERATIVO DEL 

Commodore 128 


Per la prima volta è disponibile in ITALIANO un ma¬ 
nuale che rivela i segreti del C 128. 

Per utilizzare COMPLETAMENTE le capacità operative 
di un computer è INDISPENSABILE conoscere il Siste¬ 
ma Operativo, cuore stesso di tutto il funzionamento 
to. 

La notevole documentazione contenuta in questo ma¬ 
nuale consente a TUTTI di operare per ottenere il 
meglio del C 128. I contenuti: 


- 11 Sistema Operativo con commenti in italiano e con 
le LABEL di riferimento. 

- Le pagine 0-1-2-3-4 disassemblate e commentate. 

- 11 BOOT dello Z-80 (per CPM) disassemblato e com¬ 
mentato. 

- Capitolo sulla Memory Management Unit per il con¬ 
trollo del sistema e della memoria che è espandi¬ 
bile fino a 1 Mega byte. 

- I registri e le funzioni degli integrati S1D, CIA, 
8563 VCD, VIC II. 

- Tavole di riferimento. 

L. 38.000 


(iva compresa) 
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